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RPG operates under control of the Basic 
Operating System/360. The Basic Operating 
System provides the RPG compiler with input 
and output services. Object programs gen- 
erated by the RPG compiler also operate 
under opera ting- system control and depend 
on it for similar services. 



In data processing, the machine- language 
instructions (created in the first 
function) are combined with the user input- 
data files, and both are processed through 
the system to produce the desired reports 
or output files. 



RPG supports the minimum configuration 
required by the Basic Operating System. 
The Decimal Arithmetic feature is required 
for RPG. 



USING RPG 



COMPATIBILITY OF BASIC OPERATING SYSTEM/ 360 
RPG WITH MODEL 20 RPG OR WITH SYSTEM/ 3 60 
BASIC PROGRAMMING SUPPORT RPG 



The RPG source language is upward- 
compatible. The Basic Operating System/360 
Report Program Generator can compile a 
Model 20 RPG source program, or a Basic 
Programming Support RPG source program that 
adheres to its language specifications. 
The object program will produce equivalent 
results, if the same input/output 
facilities exist. 

• The File Description Specification 
sheet of the Basic Operating System/ 360 
RPG may require additional information 
(record length and overflow 
indicators). 

• The control card of the Model 20 RPG or 
Basic Programming Support RPG programs 
must be modified before the object 
program can be generated by the Basic 
Operating System/360 RPG. 



FUNCTION OF RPG 



The preparation of a report by RPG consists 
of the general operations illustrated in 
Figure 1 and described as follows: 

1. The programmer must evaluate the report 
requirements to determine the format of 
the input files and the appearance of 
the finished report. For example, he 
must know what fields in the input 
files are to be used, what kind of 
calculations are to take place, the 
location of the data in the output 
records, and the number and the kind of 
totals that must be accumulated. More 
specific information regarding the 
evaluation of report requirements is 
described in Problem De finition. 

2. After the programmer has evaluated the 
requirements of the report, he provides 
the same information to the RPG 
program. 

He must describe his input (record 
layout, fields used, etc.) by making 
entries on an Input Specification 
sheet. 

He must state what processing is to 
be done (add, subtract, multiply) by 
entries on a Calculation Specification 
sheet. 



When RPG is used, the IBM System/360 
actually performs two separate functions : 

1. Program-generating, and 

2. Data processing. 

In progreim- generating, program specifi- 
cations are defined by the user to produce 
machine-language instructions. Storage 
areas are automatically assigned, constants 
or other reference factors are included, 
and linkages to routines are produced for 
checking, for input/output operations, and 
for other fxmctions. 



3. 



He must state how the finished 
report is to look (printing positions, 
carriage control, etc.) by making 
entries on the Output-Format Specifi- 
cation sheet. 

He must describe all files used by 
the object program (input files, output 
files, table files, etc.) by making 
entries on the File Description Speci- 
fication sheet. 

After the specifications have been 
written on the appropriate forms, cards 
are keypunched with the data from the 
forms . 
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MACHINE FEATURES REQUIRED 
PROGRAM GENERATION 

1- 8K bytes of main storage 

2. One of the following: 

IBM 1442 Card Read-Punch 
IBM 254© Card Read-Punch 

3. One of the following: 

IBM 1403 Printer 

IBM 1404 Printer (continuous forms 
operation only) 

IBM 1443 Printer 

4. IBM 2311 Disk Storage Drive 

5. Standard Instruction Set 

6. Decimal Arithmetic Feature 



Figure 1. Producing Reports Using the RPG 
Program 



OBJECT PROGRAM EXECUTION 



These punched cards (called a source 
deck ) are combined with the RPG Proc- 
essor control card and the Basic Oper- 
ating System/360 Job Control state- 
ments. The source deck and the control 
cards are supplied to an input device 
and are processed under control of the 
Basic Operating System. At the end of 
this processing run (known as a gener- 
ating or compiling run ) , a program 
capable of preparing the report speci- 
fied by the programmer has been pro- 
duced. This program (known as an 
object program ) contains all of the 
computer instructions and linkages to 
the Control System necessary to prepare 
the desired report. 



The input files can then be read into 
the system, and processing of the pro- 
gram will begin. This is known as the 
object run . 



At the end of the object run, the 
report has been prepared and any other 
functions, such as file updating, are 
completed. Through facilities provided 
by the Basic Operating System, the 
object program can be retained for 
later runs without recompilation. 



1. 8K bytes of main storage 

2. I/O units as requested by the specifi- 
cations 

3. Standard Instruction Set 

4. Decimal Arithmetic Feature 

5. IBM 2 311 Disk Storage Drive 



ADDITIONAL MACHINE FEATURES SUPPORTED 



PROGRAM GENERATION 



1. 16K, 32K, or 64K bytes of main storage. 

2. One IBM 2400-series Magnetic Tape Unit 
(7- or 9-track) (for source program 
input only) . 



OBJECT PROGRAM EXECUTION 

1. 16K, 32K, or 64K bytes of main storage, 

2. IBM 2311 Disk Storage Drive 



3« IBM 2400-series Magnetic Tape Unit (7- For usage of tape units at either com- 
or 9-track). if a 7-track tape unit is pile time or object time, refer to Appendix 
used, the Data Conversion feature is H of the programmer's guide publication 
required- listed on the front cover of this publica- 

tion. 
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FUNDAMENTALS OF RPG PROGRAMMING 



This section introduces some of the basic 
RPG functions. These functions are consid- 
ered basic because they are probably used 
in the most typical reports produced by 
RPG, and because they depend on a single 
sequential input file only. They are also 
related to the functions commonly performed 
with conventional punched- card equipment. 



Although RPG progra 
contained on magnetic 
storage devices, only 
used for this introduc 
grammers familiar with 
of RPG may omit this s 
trate on the detailed 
criptions contained in 
Specification Sheets o 



ms can process files 
tape or direct-access 
card-input files are 
tion to RPG. Pro- 

the basic concepts 
ection and concen- 
specif ications des- 

the section RPG 
f this publication. 



Because of the numerous fields on the 
five specification sheets, it may appear 
that writing RPG specifications is a diffi- 
cult task. However, few programs use all 
the specifications, and some may require 
entries on only one or two lines of the 
sheets. 

At the end of the discussion of basic 
RPG functions, a simple file-to-file list- 
ing application is used to illustrate how 
the specification sheets are related. 



5. Total calculations. 

6. Detail and total printing. 

7. Group printing. 

8. Group indication. 

9. Overflow printing. 

10. Testing for zero, plus and minus 
balance. 

11. Using field indicators. 

12. Comparing. 

13. Multiplying and dividing. 

14. Sequence-checking. 



DESCRIBING A RECORD AND ITS FIELDS TO THE 
SYSTEM 



Entries on the Input Specification sheet 
describe the data records and the fields to 
be read into the system. 



FUNCTIONS DESCRIBED 

Fourteen of the most basic RPG functions 
are described in this section: 

1. Describing a record and its fields to 
the system. 

2. Adding and subtracting ( crossfoot ing ) . 

3. Detail printing. 

4. Establishing control fields. 



Problem 



A detail labor file contains card records 
as shown in Figure 2. Three fields (A, B, 
and C) are to be read from each card into 
main storage. Field A is contained in 
columns 46-50; Field B is contained in 
columns 56-60; and Field C is contained in 
columns 66-70 of each record. The file 
that contains the records and the fields 
within each record are described on the 
Input Specification sheet. 



DIV 

0000 

12 3 4 
1111 

2222 
3333 
4444 
5555 
fr 66 6 
7777 



DEPT 

0000 

5 S 7 8 

1111 

2222 
3333 
4444 
5555 
6666 
7777 



99999999999999 

10 tl 12 13 14 



EMP 
NO. 

00000 

10 It 12 13 14 
11111 

22222 
33333 
44444 
55555 
66666 
7 7777 



EMPLOYEE 
NAME 

000000000000 

17 IB 19 20 21 22 23 24 25 X 27 28 
111111111111 

222222222222 
333333333333 
444444444444 
555555555555 
666666666666 
777777777777 



999999999999 

17 18 19 20 21 22 23 24 25 26 27 28 



000000 

29 30 31 32 33 34 
111111 

222222 
333333 
444444 
555555 
666666 
777777 



999999 

29 30 31 32 33 34 



0000000000 

36 37 38 39 40 41 42 43 44 45 
1111111111 

2222222222 
3333333333 
4444444444 

5555555555 
6 66 66 64666 
7777777777 



9999999999 

36 37 39 39 40 41 42 43 44 45 




9 9 9 9 9J9 9 9 9 9 

46 47 48 49 5(151 52 53 54 5! 



00000 

56 57 59 59 60 
11111 

22222 
33333 
44444 

55555 
66666 
77777 
88888 
99999 

56 57 59 59 60 



00000 

61 62 63 64 65 
11111 

22222 
33333 
44444 
55555 
6 6 6 6 6 
7777 7 



99999 

61 62 63 64 65 



00000 

66 67 68 69 70 
11111 

22222 
33333 
44444 
55555 
66666 
77777 



99999 

66 67 68 69 70 



00000000 

72 73 74 75 76 77 78 79 
11111111 

22222222 
33333333 
44444444 

5 5 5 5 5 5 5 5 
66666666 
7 77 7 7 777 
88888888 
99999999 

72 73 74 75 76 77 7! 79 



• Figure 2. Input Cards for Detail Labor File 



Each card that contains fields A, B, and 
C is identified by two distinct attributes. 
They must contain a digit 5 in column 35 
and no 11- zone in column 80. When these 
two conditions exist in the card record, 
the record is valid (that is, it contains 
fields A, B, and C) . 



SPECIFICATIONS 



The entries on the Input Specification 
sheet (Figure 3) that apply tr> this problem 
are circled and identified by numbers to 



reference the fields in text. The remain- 
ing fields on the form are described later. 

1. Each file of cards must be given a 
name. In this example the input deck 
of cards represents a detail labor file 
(Figure 2). A file name can be used to 
describe only one file. 

2. If several types of cards exist in a 
file, each card must be identified by 
its particular card code. In this 
example, each card read by the system 
must contain a 5-punch in column 35 and 
no 11- zone (minus) punch in column 80. 
These identifying codes are placed in 
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Figure 3. Input Specification Sheet 
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3. 



4. 



the fields called Record Identification 
Codes (columns 21-41 of the form). 
These fields provide for three iden- 
tifying codes; however, more codes can 
be indicated (see Record Identification 
Codes) . 



In this example the card codes are 
specified by writing a 5 in Character 
and a 3_5 in Position for the first 
code; and by writing an £K) in Position 
and a minus in Character , and an N in 
Not for the second code. The field on 
the form called C/Z/D indicates how the 
card column containing the card code is 
to be compared: D = digit portion 
only, Z = zone portion only, or C = all 
portions of the card column. 



After all the identification codes 
are established, the programmer assigns 
a two-digit number (from 01 to 99) to 
the card type identified. This code, 
known as a resulting indicator (columns 
19-20 of the form) , is used to refer to 
this specific card type on other speci- 
fication sheets. Using this code redu- 
ces the number of entries required on 
other specification forms, as will be 
seen later. 



If the input card is to be selected 
into a stacker (other than the one into 
which it would normally be selected) , 
the stacker number is written in Stack- 
er Select (Column 42). 



Each field of the card to be read must 
be defined as shown on the lines fol- 
lowing the record- identification line. 
The specifications shown in this exam- 
ple locate the data from the input 
record and place it in fields A, B and 
C (FLDA, FLDB, and FLDC) in three sep- 
arate locations in main storage. 



Once the card columns of the field 
have been specified and the appropriate 
field name has been defined for the 
field, other references to this field 
are made by using its field name, rath- 
er than writing down the specific card 
columns each time. 



ADDITION AND SUBTRACTION 



Problem 



Although the in 
Figure 3 is simpli 
shown will cause t 
A, B, and C from t 
into the system du 
of the object prog 
be made from the i 
on the Calculation 



put illustrated in 
fied, the entries 
he contents of fields 
he card to be read 
ring the processing 
ram. Calculations to 
nput data are written 
Specification sheet. 



In this problem, fields A, B, and C from 
the previous example are used to calculate 
a new field. Field D. The calculation 
A + B - C = D is to be performed. This 
operation is sometimes referred to as 
crossfo ot ing. The form required for this 
operation is the Calculation Specification 
sheet. 



Specifi cations 



Figure 4 shows the required entries using 
the fields from the previous example. The 
first line of the Calculation Specification 
sheet tells the object program to add the 
contents of FLDB to the contents of FLDA 
and place the result in FLDD. 

1. The 14 in Indicators defines the card 
type for which the calculations are to 
be performed, as assigned on the Input 
Specification sheet in Resulting Indi- 
cator (Figure 3) . 

2. The card columns for FLDA and FLDB were 
defined by entries in columns 46-47 and 
50-51 on the input forms and need not 
be specified again. The names assigned 
in columns 53-56 will be used to refer 
to the fields. 

3. The result field FLDD is defined for 
the program by merely writing the name 
FLDD in Result Fiel d (columns 4 3-48) 
and indicating in Field Length (columns 
49-51) the number of positions that 
must be set aside for this field in the 
object program. Just as in the case of 
FLDA and FLDB, which were defined on 
the input form, the name FLDD can now 
be used in other calculation operations 
or used in defining output specifi- 
cations. 

Note; The result of A + B is not 
placed back into FLDA. To do this 
would destroy the original contents 
of FLDA. In this example it is 
necessary to save the original value 
of FLDA so that it can be printed on 
an output report. 

The second line in Figure 4 causes 
the object program to subtract the 
contents of FLDC from the result just 
previously attained in FLDD, and to 
store the new result back into FLDD. 
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D ECIMAL POINT LOCATION i In operations 
involving numbers containing decimal posi- 
tions, the number of decimal positions in 
each of the fields is frequently not the 
same. When the number of decimal positions 
is not the same in both factors in an 
arithmetic operation, shifting the factors 
to align the decimal point is usually 
required. 



RPG automatically shifts the factors. 
The programmer must indicate the number of 
\/ decimal positions contained in each factor 
\7q used in calculations, and the number of 

^^ decimal positions required in the result. 
,V ^ kj- f a field is to have arithmetic operations 
^ a «• „ im it, tne aecimal positions must 



°) ^ ^ be specif ied. A zero is coded" tor no deci - 

fy m al pos iti ons (see_Figure **T 2 Assume that 

ty J the fields in Figure 3 have decimal posi- 

' tions as indicated under D ecimal Position 

(column 52) in the following example: 



■* 



-T— " T 1 

Field j Decimal | Field J 
From | To | Positions j Name 

50 | J FLDA | 
60 1 2 j FLDB j 
70 | 3 j FLDC | 




r r i"~ t 1 

| | Decimal | Contained | Actual | 
| Field | Positions | In cards | value | 
l + + + H 

| A | | 00126 | 126. | 
| B | 2 | 01123 | 11.23 | 
j C | 3 | 04264 | 4.264| 

L J. J. J. J 

The programmer must indicate the number 
of decimal positions required in the 
result. 



C = D would 
shifted like 



The calculation A + B - 
result in the values being 
this: 

126.000 = A 
•HI. 230 = B 
137.230 
- 4.264 = C 
132.966 = D 

(The result field has three decimal 
positions) . 

The result 132.966 is stored as the 
value of the field called D. Entering the 
decimal positions on the input sheet and 
the calculation sheet enables the factors 
to be shifted automatically. 



A set of values for these fields might 
appear to the program as follows: 



DETAIL PRINTING 



Detail printing is the printing of informa- 
tion obtained from each record as it is 
read. 
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Figure 5. Out put- Format Specification Sheet 



Problem 



This problem illustrates how input fields 
FLDA, FLDB, and FLDC, and the calculated 
result, FLDD, can be specified for listing. 



Specifications 



Figure 5 shows the output specifications 
required. The numbers in the following 
list refer to items circled in Figure 5, 

1. The output listing must be assigned its 
own specific file name. In this exam- 
ple it has been called DAILYRPT . 

The D in Type H/D/T indicates that 
the line being printed is a detail 
line. That is, it contains information 
from the record just read. (The other 
possible entries, H and T, indicating 
heading lines and total lines, are 
described later. ) 

The 2 in Space After provides a 
double- spaced listing. (There is one 
blank line after each printed line.) 

2. The 14 in Output Indicators identifies 
the input record type to be printed. 

3. Each field to be printed must be speci- 
fied under the heading Field Name . The 
Z in Zero Suppress means that zeros to 
the left of significant digits are not 
printed. (For example, the value 



stored in FLDA (00126) is printed as 
126.) 

The printing positions for data to 
be printed on the output report are 
specified in End Position in Out put 
Record (Columns 40-43). The programmer 
has to indicate only the last printing 
position of each field (low-order or 
rightmost position) . The length of 
each field has already been established 
for the program as part of the input 
specifications, or established in the 
result field of the calculations speci- 
fications. 

When preparing a simple listing such as 
the one in this example, the programmer 
would probably select printing positions of 
the output unit based upon the number of 
positions in each field plus a number of 
positions as spaces between fields. 

More elaborate reports are laid out on a 
printer form in advance of the program 
writing function. Usually this indicates 
both the location on the form where data is 
to be printed and the source of the data 
(the card columns of the input data or the 
names of data fields developed in the 
program) . This is normally a function of 
job definition, a subject that is discussed 
later under Problem Defini tion. 

Figures 3, 4, and 5 illustrate how to 
read data into the system, how calculations 
can be performed upon the data, and how the 
original data and the data developed in the 
program can be printed. The examples so 
far have shown the items necessary to pre- 
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pare a report. A significant item not yet 
described is how to specify a control 
field. 



CONTROL FIELDS 



A control field is a field containing 
information to be compared from record to 
record. A control break occurs when the 
information in the control field changes. 
A control level establishes the relative 
importance of the control fields. 



Problem 



This example shows how to specify three 
levels of control. 



Specifications 



Figure 6 shows the input data from Figure 3 
with the addition of the appropriate con- 
trol data and employee name (the items 
inside the circle). In this example there 
are three levels of totals: the lowest 
level is employee number (EMPNO), the next 
is department (DEPT) , and the highest level 
is division (DIVSON) . These levels are 
designated LI, L2, and L3, respectively. 



(Because as many as nine levels of totals 
are possible in RPG, the common terms of 
minor , intermediate , and ma jor totals are 
inadequate. ) 

To designate a control field and to 
establish a level of control, enter the 
card columns of the field in Field Loca- 
tion , enter an appropriate name in Field 
Name , and enter the correct control level 
(LI, L2, . . . L9) in Control Level. 

In the example (Figure 2 and 6) the 
sequence of the control fields (left to 
right) in the card is the same as the 
sequence of the control levels. The con- 
trol fields, however, could have been in 
any location on the card, and the specifi- 
cations for them could have been in any 
sequence on the form, as illustrated in the 
following example. 

The reading of the employee-name field 
(fifth line of the sheet) is also included 
as part of this example, but it is not 
related to controls. It is shown here to 
indicate another aspect of the decimal- 
positions column of the Input Specification 
sheet. When a numeric field is specified 
^ n Field Location, any digit (0 to 9) 
placed in Decimal Position causes zone 
punches in all positions of the field 
(except the units position) to be removed. 

Therefore, when an alphabetic field is 
specified, Dec imal Positi on should be left 
blank to permit the zone punches of the 
alphabetic field to be read into the sys- 
tem. 
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Figure 6. Specifying Control Levels on the Input Sheet 
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• Figure 7. Specifying Control Levels on the Calculation Sheet 



TOTAL CALCULATIONS 



Total calculations are performed after a 
specified control break has occurred. When 
a control break occurs, special operations 
are normally performed before processing 
the record that caused the control break. 
These operations are called total opera- 
tions. 



Problem 



This example illustrates how totals can be 
accumulated at each control level. 



Specifications 



Figure 7 contains the data shown in Figure 
4. The additional information for this 
example is circled. During processing of 
the object program, lines 1 and 2 cause the 
operation A + B - C = D. The third line 
adds the result, contained in FLDD, from 
each detail card to a field called TOTE . 
Therefore, TOTE is the accumulated amount 
for each employee group. The first three 
specification lines are performed in the 
object program each time a detail card is 
read (see Figure 7, Indicator 14). 

When the level-1 (LI) control break 
occurs (a card from the next employee group 
has been sensed) , specification-line 4 adds 



the total of TOTE accumulated from each 
detail card into a field called TOTF. TOTF 
is usel to accumulate the total employee 
group for each department. 



When the level-2 control break occurs, 
TOTF is added into TOTG. 

When the level-3 control break occurs, 
TOTG (which represents the accumulated 
amounts for each division) is added into 
FINTOT. 

Accumulating totals at each control- 
break level is normally done when the 
corresponding totals are printed on an 
output report. 

Note : In System/360 RPG (as in IBM 
punched-card data processing equipment) 
a control break at one level forces 
control breaks for all lower levels. 



DETAIL AND TOTAL PRINTING 



Problem 



This example shows the specifications nec- 
essary to print the three controlling 
fields, the name, the accumulated amount in 
field D, the three accumulated totals, and 
the final total at the end of the object- 
program report. 
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• Figure 8- Specifications on the Output- Format Sheet 



Specifications 



Figure 8 illustrates the specifications 
required for the report shown in Figure ! 
The following numbers refer to the items 
circled in Figure 8: 
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Figure 9. 
1. 



Detailed Printed Report 



This information is similar to the 
specifications in the previous example 
in Figure 5. 



2. The data fields DIVSON, DEPT, EMPNO, 
NAME, and FLDD, are specified for 
printing. 

3. The specifications to print the total 
for the first control level shown on 
lines 7 and 8 are: 

a. The T in H/D/T (column 15) indicates 
that the line is a total line. A 
total line is an operation caused by 



a control break. The input record 
that causes the control break cannot 
contribute data to the accumulated 
totals or to the total line. Totals 
accumulated before a control break 
are printed. 



b. A 3 in Space After (column 18 > pro- 
vides two blank lines after each 
printed line to make the report 
easier to read. 



c. The LI in Output Indicators (columns 
23-24) indicates that the line is to 
be printed only on a level-1 control 
break. 



d. The field to be printed (TOTE) is 
indicated under Field Nam e (columns 
32-37). 



e. The Z in Zero Suppress (column 38) 
indicates that zeros to the left of 
significant digits are not to be 
printed. 

f. The B in Blank After (column 39) 

I causes the main-storage positions 
containing field TOTE to be set to 
zeros after the total is printed. 
This is done so the total for one 
group is not added to the total of 
the previous group. 

The specifications to print the 
second and third control levels are 
essentially the same as those for 
the first level. 

4. The specifications for printing the 
final total contain the code LR (Last 
Record) in Output Indicators (columns 
23-24) . In this example, the indicator 
LR is turned on automatically by the 
program when the last card of a file 
has been sensed. This indicator is 
used to cause the final total to be 
printed. 



GROUP PRINTING 



In group- printing operations only one line 
is printed for each group of detail cards. 
This line usually contains the control 
fields and the totals of the quantity 
fields. 

An example of a group-printed report is 
shown in Figure 10. 
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trol change. The fields DIVSON and DEPT 
are printed only when there is a control 
change for the division and department 
fields, respectively. 



Figure 10. Group- Printed Report 

The detail- printed report specification 
in Figure 8 could be altered to provide a 
group- printed report as illustrated by the 
specifications in Figure 11. 



GROUP INDICATION 



In group- indication operations each detail 
card is processed; however, only the con- 
trol fields that identify the specific 
detail card are printed. An example of a 
group-indication report is illustrated in 
Figure 12. In this example the employee 
name and number are printed for each con- 
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Figure 11. Specifying a Group- Printed Report 
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Figure 13 illustrates how the detail- 
printed report specifications in Figure 11 
could be altered to specify a group- 
indication report. 



Figure 12. Example of a Group- Indication 
Report 
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Figure 13. Specifying a Group-* Indication Report 



OVERFLOW PRINTING 



Specifications 



Overflow printing, another function used in Figure 14 illustrates the output specif i-* 
preparing reports, can be performed in RPG. cations required for this operation. The 



Overflow is the sensing of channel 12 in 
the printer carriage control tape. 



Problem 



numbers in the following list refer to the 
circled items in Figure 1U-. The File Name 
(columns 7-14 > of DAILYRPT is the same; 
adding overflow headings does not change 
it. 



This example shows the additional 
specifications necessary to print eight 
column headings at the top of each printed 
form. A heading-line is a line that con-* 
tains information from an input record or 
contains constants. 
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Figure 14. Printing Heading Lines 



1. On the first line of the form, the H in 
H/D/T (column 15) indicates that the 
line to be printed is a heading line. 



The actual information is contained 
within single quote signs. 



2. 



The 2 in Space After (column 18) 
provides a blank line after each print- 
ed line. 

The 01 in Skip Before (columns 
19-20) causes the form to skip to chan- 
nel 01 in the carriage control tape. 
This positions the form for printing of 
the overflow heading line. 

The OF in Output Indicators (columns 
23-24) causes the heading line to be 
printed each time there is a form over- 
flow on the printer. 

On the second line of the form, the 
letters OR indicate a second condition 
can cause the heading line to print. 
The second condition, indicated by IP 
(first page) in Output Indicators , 
causes the heading line to be printed 
on the first page. This condition is 
necessary to print the heading on the 
first page of the report, because the 
overflow condition does not occur until 
after the first page of the report has 
been printed. 

The entries on lines 3-10 of Figure 14 
specify the actual information or con- 
stants to be printed on the report. 



TESTING FOR ZERO, PLUS, AND MINUS BALANCE 



Specifications are executed in the object 
program in the same sequence in which they 
are written on the specification form 
unless a different sequence has be en speci- 
fied . 

If specifications had to be followed 
sequentially in a fixed pattern, a program 
would follow a single path of operation 
without any possibility of dealing with 
predefined exceptions to the procedure, and 
without the ability to choose a predefined 
alternative to the procedure, based upon 
conditions encountered during the process- 
ing of the program. 

For example, assume that a program has 
been written containing ten specifications 
that cause a number of operations to be 
performed upon a series of quantities. If 
the first five specifications develop mean- 
ingless results when processed with quanti- 
ties of zero, the processing time of the 
object program can be reduced if the first 
five specifications are bypassed whenever 
the quantity to be processed is zero. 
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A specification in the RPG program can 
be used to evaluate a quantity and, depend- 
ing upon the value of that quantity, direct 
the program to some other specification. 



Figure 15 and 16 illustrate a test for a 
zero balance, and Figure 17 shows the 
specifications for a test for a minus 
balance. 



Input Specifications 



Three types of tests can be made on the 
Input Specification sheet: 

1. Testing an input field to determine if 
it contains a plus value. 

2. Testing an input field to determine if 
it contains a minus value. 

3. Testing an input field to determine if 
it is blank or is punched with zero. 



Calculation Specifications 



Three types of tests can be made on the 
Calculation Specification sheet: tests to 
determine whether the result of a calcula- 
tion is plus, minus, or zero. 

The program also can compare two fields 
and can test the result to determine if the 
content of one field is greater than, smal- 
ler than, or equal to that of the other 
field. 



Figure 15 illustrates a typical test of 
the content of an input field. If FLDA 
(line 6) contains zeros, it is unnecessary 
to perform some of the operations entered 
on the Calculation Specification sheet. To 
make this test, the programmer places a 
number from 01 to 99 in Field 
Indicators; Zero or Blank (columns 69-70). 
In this example the number is 18. If a 
card read into the system contains zeros in 
columns 46-50 (FLDA) , indicator 18 is 
turned on. 



Turning on an indicator means a special 
condition has occurred and the program must 
consider this condition during the process- 
ing of calculation specifications and/or 
output specifications. This indicator 
condition is no different from having a 
resulting indicator turned on by a specific 
record identification code from an input 
card. 



For example, the entries circled in 
Figure 16 are the additional specifications 
that bypass the calculation upon detail 
cards if the value in FLDA is zero or 
blank. 



r 



IBM 



INTERNATIONAL BUSINESS MACHINES CORPORATION 

REPORT PROGRAM GENERATOR INPUT SPECIFICATIONS 

IBM System/360 



Program . 
Programrr 



Punching 


Graphic 
















Punch 

















m 



75 76 77 78 79 









I 

6 






















2 
JS 

E 
1 
17 


s 

& 

IB 






Record Identification Codes 




"8 

1 

43 








Field 








6 

'$ 
a 

52 






























Field 














Un. 
3 4 5 


Filename 

7 8 9 10 II 12 13 U 


8 

1 

15 15 


8 
1 

19 JO 


l 


2 


3 


tj 

1 
42 


Location 


Field Name 

53 54 55 56 57 58 


J 
1 

u 

59 60 


H 
If 

* u 

61 62 


J 

] 

i 

63 64 




Sterling 

Sign 
Position 

71 72 73 74 


Position 

21 22 23 24 


z 
z 

25 


a 
u 


| 

27 


Position 

28 29 30 31 


z 

z 

32 


a 
u 

33 


34 


Position 

35 36 37 38 


z 

z 

39 


a 

40 


41 


From 

44 45 45 47 


To 

48 49 50 51 


Plut 
65 66 


Mlnui 
67 68 


Zero 
Blank 

69 70 





1 







D 


£ 


T 


L 


R 


B 





R 


A 


ft 






1 


4 






3 


5 




D 


5 






8\4 


N 


£ 


- 


j 












2 





































































I 





















































I 
































/ 








i 


4 


D 


I 


V 


S 





N 


L 


3 






























i 


3 





















































































5 








8 


4 


a 


E 


P 


T 






L 


1 






























i 


4 


i 














































i 
















| 


















9 






1 


4 


4 


E 


M 


P 


rV 


P 




L 


1 






























d> 


5 


V 
















































































1 


5 






2 


8 




N 


A 


M 


£ 
























/ 


■"-' 


-« 













6 


d> 














































j 






























4 


6 






5 


4 


d> 


£ 


L 





A 
























( 


1 


8 


) 








d> 


7 


i 














































! 
















! 
















5 


6 






6 


d> 





t 


L 


D 


B 
























^ 


X. 


-x 










<t> 


8 


$ 
















i 
















i 








































6 


6 






7 


</> 


4 


F 


L 


D 


C 









































9 






















i 




















! ! ! 






















































































- 















































































































































Figure 15. Specifying a Test for a Zero-Balance 
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Figure 16, Test for a Zero- Balance 



The specifications 14N18 in Indicators 
(columns 10-14) mean that the calculation 
will be performed if indicator 14 is on and 
indicator 18 is off. (The N in N18 stands 
for Not .) As now written on the Calcula- 
tion Specification sheet in Figure 16, the 
detail calculations are not performed if 
the value of FLDA from the input card is 
zero (Figure 15). 

The same indicator specification, N18, 
could also be used on the Output-Format 
Specification sheet to prevent the printing 
of detail cards when FLDA is zero (if that 
was a requirement of the program) . 



USING RESULTING INDICATORS 



Problem 



The calculation specifications in this 
example (see Figure 17) illustrate the use 
of a resulting indicator to test for a 



minus balance. The result of the test can 
be used to bypass some specifications and 
to process other specifications only when 
the condition tested for is present. 



Specifications 



The specifications for this example are 
shown in Figure 17. The program logic for 
this example is shown in Figure 18. 

Line 1 specifies that FLDB is to be 
added to FLDA and that the result is to be 
placed in FLDD. Line 2 specifies that FLDC 
is to be subtracted from FLDD, that the 
result is to be placed in FLDD, and that 
FLDD is to be tested to determine if the 
result is minus. In this example it is 
assumed that if a minus balance occurs, the 
calculation has no meaning. Th-arefore, if 
the result is minus, two things must be 
accomplished: 
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c Figure 17. Testing for a Minus Condition 



Line 1 



Line 2 



Add 
A + B. 
Store in D 



Subtract 
D-C. 
Store in 



Continue 
With 
Other 
Processing 




This is accomplished on the specifi- 
cation sheet (Figure 17) by placing an 
indicator code (If) in Resulting Indica- 
tors: Minus on specification-line 2. Indi- 
cator 19 will be turned on for a minus 
condition. 

The function of adding TOTE to FLDD is 
specified on line 3. It is accomplished 
only if there is a no-minus condition 
resulting from the test on line 2. The 
specifications on line U cause FLDD to be 
reset to zeros only on a minus condition. 

The in Factor 2 on line 4 is known as 
a literal and is used to set FLDD to zeros. 
This is accomplished by the zero and add 
(Z-ADD) operation. A literal is the actual 
value to be used in a calculation rather 
than the name of the location of the data 
to be used. The remaining specifications 
on the form in Figure 17 are the same as 
those from previous examples. 

By using indicator 19, it is possible to 
suppress detail- card printing when D-C 
results in a minus balance. 



Figure 18. Testing Indicators to Govern 
Processing 

1. The result must not be added into field 
TOTE. 

2. The contents of field FLDD must be 
reset to zeros. (This step might be 
required if FLDD were used in a subse- 
quent step and the minus balance 
remaining would give incorrect 
results. ) 



COMPARISON OF TWO FIELDS 



The calculation specifications in this 
example illustrate the ability to compare 
two fields and govern processing according 
to the result of the comparison. The com- 
parison may be tested for a high, low, or 
equal condition. The result of the test 
can then be used to bypass some specifi- 
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•Figure 19. Specifying a comparison 



cations or to process other specifications 
only when a particular condition is pre- 
sent. 



moved to HOLD (line 2)- If the two fields 
are not equal (line 3), FLDB is subtracted 
from FLDA and the result is placed in SAVE. 



Specifications 



The calculation specifications for this 
example are shown in Figure 19. The pro- 
gram logic for the example is shown in 
Figure 20. 

Line 1 specifies that FLDA is compared 
to FLDB. If the two fields are equal, 
indicator 18 is turned on, and FLDA is 



A literal may also be used in a compari- 
son specification. In the lower half of 
Figure 19 , the contents of the input field, 
| DATE, are compared against 02-14-64, and 
indicator 19 is turned on if they are 
equal. 



Line 1 



Line 1 
Line 3 



Indicator 18 
Is Not On. 



Subtract FIELD B 
From FIELD A. 
Store Result 
In SAVE 



No 



Compare FIELD A 
to FIELD B 




Yes Turn Indicator 18 On. 



Move FIELD A 
to HOLD 



Line 2 

Indicator 18 is On. 



Continue 
With Other 
Processing 



Figure 20. Testing a Comparison 
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MULTIPLICATION AND DIVISION 



Multiply and divide operations are easily 
accomplished with RPG. Moreover, two prob- 
lems associated with these functions 
(decimal-point alignment and 
half-adjusting) are easily specified. 



price for the following week reflects the 
average fabrication costs and scrap losses 
on a year- to- date basis. 



Specifications 



Problem 



This example illustrates an inventory card 
(Figure 21) that must have the quantity 
multiplied by the price to develop a total 
cost on a w€»ekly basis. The price of the 
part is also updated each week, so that the 



The specifications to accomplish these 
functions are shown in Figures 22 and 23. 
Figure 22 shows the input specifications 
for all five fields. The programmer must 
be certain of the exact size of each field 
and the number of decimal places within 
each field. The fields in this example 
are: 
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Figure 21. Inventory Card 
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Figure 22. Input Specifications 



Part Number 

Price 
Quantity 
Y/D Cost 
Y/D Usage 



xxxxx 

XX. XXX 

xxxx. 

XXXXXX. XX 

xxxxxx. 



No. of 

Decimal 

Positions 

None (alpha- 
betic) 
3 

2 




As shown in Figure 22, the decimal 
positions of each field are entered under 



Decimal Positions on the Input Specifi- 
cation sheet. 



The calculation specifications for this 
example are shown in Figure 23. PRICE is 
multiplied by QUANTY and the result is 
placed in a field called COST. The field 
length of COST is specified as 9. The 
result field is to have two decimal posi- 
tions and to be half-adjusted as specified 
by the H in Half-Adjust (column 53). The 
following is an example of the arithmetic 
of this operation, using actual values: 
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1, 


213 


X 


216 


7 


278 


12 


13 


242 


6 



Price 
Quantity 



262.008 

The result field was specified for two 
decimal positions; therefore, the half- 
adjustment is made to the digit 8 in the 
units position. Half-adjustment is always 
made to the position to the right of the 
last position retained as part of the 
result, as follows; 



262-1308 

♦ 5 half -ad just 

262.013 

The result, 262.01, is stored as the 
contents of COST. The position that was 
half-adjusted is dropped. 

The second line of tne Calculation 
Specification sheet provides the specifi- 
cations for dividing year-to-date costs by 
year-to-date usage., The result is placed 
in a field called PRICE. The field length 
of PRICE is specified as 5, with three 
decimal positions. The result is to be 
half-adjusted, as specified by the H in 
Ha If -Ad just . An example of the arithmetic 
of this operation, using actual values, 
follows. Year-to-date COST divided by 
usage equals PRICE.. 



1.3419 



(usage) 1296) 1739. 23xx 



(price) 

(year-to-date 

cost) 



The result field was specified for three 
decimal places. Therefore* the half- 
adjustment is made to the digit 9 in the 
units position. This is the position to 
the right of the last position retained as 
part of the result,, as follows: 

1.3419 

+ 5 half-adjust 

1.3424 



The result, 1.342, is stored as the 
contents of PRICE. The position that was 
half -ad justed is dropped. 



SEQUENCE- CHECKING 



Two types of sequence- checking functions 
can be performed with RPG: 

1. Checking the sequence of different 
record- types within a control group. 

2. Checking the sequence of control 
groups. (See the section Using the 
Matching Fields Specification for 
Sequence-Checking . ) 



Sequence-Checking of Different Record Types 
within a Control Group 



The application consists of updating an 
invoice file, which, in this case, contains 
from two to four of the following types for 
each part number: 
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Figure 24 illustrates the specifications 
required to check the sequence of a group 
of four card-types. The numbers on the 
form refer to the following numbers: 
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• Figure 2U. Input Specifications 



1. The record-identification codes for the 
four cards are specified in the same 
manner as in previous examples. The C 
in C/2/D indicates that the entire 
character punched in the card is exam- 
ined to establish the record identifi- 
cation code. 

In the specifications for the last 
card- type (specification- line 13 on the 
form) , a D is written in C/Z/D because 
there is a possibility that some of 
these card-types may have a zone punch. 
The D specifies that only the digit 
punches in the card are examined to 
identify the card-type. Thus, zone 
punches that could result in unequal 
comparisons are ignored. 

2. The sequence established for the file 
is determined by the sequence in which 
the specifications for each card-type 
are written on the form and by the 
numbers placed in Sequence . In this 
example, the digits 01, 02, 03, and OH 
are used. The numbers assigned must 
begin with 01 in each file. 



3. 



Alphabetic characters under Sequence 
in preceding examples indicate that no 
sequence- checking is to take place. 
Alphabetic specifications must always 
be written before numeric specifi- 
cations for any one file. 

These specifications are all that 
are required to cause the object pro- 
gram to perform a sequence- check of the 
various record- types. If a sequence- 
check error is detected, the object 
program is halted. 

Two additional specifications, 
Number and Option , are used in these 
types of applications. 

If a numeric specification is provided 
in Sequence , a specification must be 
provided in Number. 



On the first two record identification 
lines, the number 1 in Number indicates 
that no more than one record of that type 
must be present in each group. In this 
example, only one master card and no more 
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than one shipped-via card for each invoice 
must be present. If there is more than one 
of either of these cards, the program rec- 
ognizes an error in the input file. 

The letter N in Number of the specifi- 
cations for the last two record- types means 
that multiple card-types for each part 
number may be present. In this case, mul- 
tiple cards for part number and comments 
may be present. 

The letter O in Option in the specifi- 
cations means that the records are option- 
al. That is, a record may or may not be 

present. 



If the letter was not specified, it 
means that the particular record must be 
present. This requirement applies only if 
Sequence has been specified as numeric. 



CORRELATION OF THE RPG SPECIFICATION SHEETS 



Figure 25 shows a file-to-file 3 ample pro- 
gram. It illustrates the relationships of 
the RPG specification sheets. (This type 
of report is often called an 80/80 
listing). 
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Figure 25, File-to-File Program 

Assume the contents of an input file are l for this program: File Description, Input, 
to be transferred to another file. In this I and Output-Format, 
example the input file is a card file, and 
contents of the cards are to be printed. 
Three specifications sheets are required 
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FILE DESCRIPTION SHEET 



The two files are described on this sheet. 
The card- input file is assigned the name 
INPUT, and the printed output file is named 
OUTPUT. Page and line sequence numbers are 
entered in columns 1-5. An F in column 6 
indicates that each entry is a File Des- 
cription entry. The file names are entered 
in columns 7-14 ( Filename ). Column 15 
contains an I or an O to indicate whether 
the file has an input or an output func- 
tion. 



columns 1-5. An I in column 6 of each card 
indicates an Input Specification Entry. 

The filename is again entered into 
columns 7-14. Columns 15-16 contain the 
sequence code AA. Indicator 91, entered 
into columns 19-20, will be on throughout 
the job to show that records from its asso- 
ciated file are being processed. The sec- 
ond line describes the field name CARDIN. 
The field consists of card columns 1-80. 



Column 16 of the input file on the File 
Description Specification sheet contains a 
P because the file described is the primary 
input file for the job; the E in column 17 
indicates that the end-of-file condition 
for this file occurs when this file is 
depleted. 

Column 19 contains an F and a V to indi- 
cate that the file formats are fixed- length 
and variable- length respectively. (See 
Variable- Length Records. ) 

Block length (columns 20-23) is 80 for 
the input file because each card is a block 
of data. Record length (columns 24-27) is 
also 8 for the input file because each 
card is an unblocked record. For the out- 
put file the block length and the record 
length is 132, which is the maximum length 
of a printer line. The program identifi- 
cation is entered into columns 75-80. 



OUTPUT SPECIFICATION SHEET 



On the Output Format Specification sheet, 
the filename of the output file is entered 
in columns 7-14. The D in column 15 indi- 
cates that each line printed in this file 
is a detail line. A single space after 
printing is specified by the entry in 
column 18. Indicator 01 from the Input 
Specification sheet is specified in columns 
24-25. When indicator 01 is on, a record 
will be printed. 

The second output line has the name of 
the field to be written in the output 
record entered in columns 32-37. Data from 
the field labeled CARDIN will be printed 
(end position of 80) in the output record 
as specified in columns 40-43. 



If the input file was read in by an IBM 
1442 Card Read- Punch, the code in Device 
(columns 40-46) would be READ42. The out- 
put printer would have a device code of 
PRINTER. 

The symbolic device codes for the two 
files would be SYSRDR and SYSLST. 



INPUT SPECIFICATION SHEET 



The Input Specification sheet also has the 
program identification entered in columns 
75-8 and the page and line numbers in 



SUMMARY 



This completes the general description of 
some of the functions that can be performed 
with RPG. Some of the fields of the speci- 
fications sheets were not explained and 
some additional operations that can be 
performed with RPG remain to be described. 
At this point, the reader should be able to 
determine the scope of the RPG program. 

More specific information about each 
specification sheet is contained under RPG 
Specifi catio n Sheets . 
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PROGRAM LOGIC 



Each object program generated by RPG uses 
the same general logic, and for each record 
to be processed the program goes through 
the same general cycle of operations. 
Within that cycle, there are two different 
instances in time when operations specified 
on the Calculation and Output-Format Speci- 
fication sheets are performed. These 
instances are called detail and total time. 



For the illustration of this concept, a 
generalized flowchart of an RPG object 
program is shown in Figure 26. 

The following numbers correspond to the 
numbers on Figure 26. A program cycle 
begins with item 1 and continues through 
item 11. Steps 6 and 7 are referred to as 
total time . Steps 11 and 1 are referred to 
as detail time . 

1. Before the first record is read, the 
object program prepares and prints any 
heading information to be printed on 
the first page. After the first record 
has been read, the object program pre- 
pares and prints any heading and detail 
information which is not conditioned on 
overflow. 

2. The object program tests for any halt 
indicators. If any halt indicators are 
on, the program branches to item 12. 

3. The object program tests for the end- 
of-file conditions. If the end-of-file 
condition has occurred, the program 
branches to item 13. 



4. The object program then reads an input 
record. 

5. Starting with line 1 of the Input 
Specification sheet, and with the 
record just read, the object program 
uses the record identification code to 
identify the record. When the iden- 
tification code matches an entry on the 
input sheet, the object program turns 
on the resulting indicator that has 
been specified for the record. When a 
control-field break occurs, appropriate 
control- level indicators are turned on. 

6. Next, all total calculations are per- 
formed. (This step is bypassed for the 
initial control break which is caused 
by reading the first input record. ) 

7. Next, all total output lines which are 
not conditioned on overflow are pre- 
pared and printed. (This step is also 
bypassed for the first control break.) 

8. The object program tests for the last 
record indicator. If it is on, the 
program branches to item 14. 

9. The object program tests for an over- 
flow condition. If an overflow condi- 
tion has occurred, the program branches 
to item 15. 

10. The data fields contained in the input 
record just read are moved into stor- 
age. These fields are specified by 
field entries on the Input Specifi- 
cation sheet. 
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13. The Last- Record indicator (LR) is set 
ON and all control- level indicators 
Ll-Lt are set ON. Then the program 
branches to item 6. 



14. Program execution stops ■ 



15. If overflow has occurred, any lines 
conditioned by overflow are printed. 
If no overflow printing has been speci- 
fied, an automatic skip to channel 1 
occurs. The program then branches to 
item 10. 
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Figure 26. General Logic Flow of an RPG 
Object Program 
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PROBLEM DEFINITION 



The programming examples in the preceding 
section were intended to introduce the 
reader to the use of RPG and were therefore 
kept simple. More complex applications may 
require a thorough analysis of the existing 
or proposed system before program writing. 

This analysis should include a descrip- 
tion of source data and its format, and how 
this data should be processed to develop 
the report and other necessary output 
information. 

The following types of information must 
be defined before coding the program; 

1. The available data. 

2. The input and output formats to be 
used. 

3. The information required in the input 
and output formats. 

4. The codes to be used to identify the 
various inputs and outputs and their 
elements. 



is punched in cards, the user must know 
where the information is to be located. A 
tape layout chart (Form X21-9Q11) or a 
direct-access storage- device layout chart 
(Form X24-1711) can be used. 



Layout of Lines and Fields 



The two most important functions of a prin- 
ter spacing chart are: 

1. To establish the positions of the data 
to be printed and to indicate the spac- 
ing between printed lines. 



2. To assign each line an identification 
code representing the type of line. 
Figure 27 shows an example of the prin- 
ter spacing chart (Form X24-6436). 



5. The handling of the various transac- 
tions and exceptions. 

After all application data has been 
gathered, document it for easy reference 
during the writing of the specification 
forms. One method of documenting an appli- 
cation is to lay out the complete format of 
the report on a printer spacing chart. 
This method also provides a pictorial rep- 
resentation of the final product. 



PRINTER SPACING CHART 



Before the report specifications are writ- 
ten, the programmer should have a clear 
picture of what he wants as the final pro- 
duct. If the report is to be printed, he 
must know the number of fields to be placed 
on each line of the report, the spacing 
between lines, and the positioning of the 
information within each line of the report. 

Although no cards for the source deck 
are punched directly from the entries on 
this chart, the representation serves as a 
guide for completing the specification 
sheets. It plays an important role in 
writing report specifications. If the 
final product is written on magnetic tape 
or direct-access storage devices or if it 
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The numbers across the top and bottom of 
the spacing chart represent the print posi- 
tions. The numbers down the left side are 
the line numbers. The programmer selects 
the line number and print positions for a 
particular field and makes his notation in 
the selected positions. 



Headings and other constant information 
are spelled out completely in the print 
positions assigned to them, variable 
information is represented by X*a and where 
applicable, includes credit symbols, punc- 
tuation, etc. The position in an amount 
field where zero suppression ends is indi- 
cated by a zero rather than an X. 



Line- Identification Code 



The line- identification code specifies the 
type of line to be printed. The identifi- 
cation codes aret H for a heading line, D 
for a detail line, and T for a total line. 
All lines must be identified as belonging 
to one of these' categories. 



Figure 27. Printer Spacing Chart 
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RPG SPECIFICATIONS SHEETS 



This section provides detailed explanations 
of each specification field in the five RPG 
coding forms. 



CROSS- REFERENCES 



The section Disk Storage Concepts 
provides a general introduction to disk- 
file organization and processing, including 
terminology associated with these 
functions. Readers not familiar with these 
concepts may wish to review that section 
before beginning with RPG Specification 
Sheets. 



To make this reference manual a more effec- 
tive learning tool, numerous crossreferen- 
ces are placed for readers not familiar 
with disk-storage processing and related 
functions. 



GENERAL INFORMATION 



Disk storage, table lookup, matching 
field, and chaining field operations and 
related functions are described apart from 
the detailed descriptions of specifications 
for them. 

These general introductory descriptions, 
contained at the back of the manual, are 
intended for the reader as he encounters 
the related specifications for them 
throughout the manual. To facilitate 
locating them in the manual, all cross- 
references used are listed in the Index. 



The forms are listed in the sequence in 
which they are discussed in this publica- 
tion. 

Input Specifications 
Calculation Specifications 
Output-Format Specifications 
File Description Specifications 
File Extension Specifications 

Figure 28 shows the five specifications 
sheets. 
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INPUT SPECIFICATIONS: This form is used 
to: 

1. Specify the file or files to be read 
into the system. 

2. Identify the different types of records 
contained in each file. 

3. Describe the location of the data 
fields in each record. 



CALCULATION SPECIFICATIONS: This form 
specifies the operations to be performed 
upon the input data and upon data obtained 
as the result of previous calculations. 



OUTPUT- FORMAT SPECIFICATIONS: This form 
specifies: 

1. The kind of output files to be pro- 
duced: printed reports, summary 
records, etc. 

2. The location of the data fields in the 
output reports and records. 

FILE DESCRIPTION SPECIFICATIONS: This form 
provides additional information about input 
and output files that is not included on 
the input or output sheets. 

FILE EXTENSION SPECIFICA TIONS: This form 
provides additional information about files 
used by the object program, such as tables, 
chaining files, and record-address files. 



COMMON FIELDS 



There are five entries that have the same 
function in all five forms. These are 
described first. 



LINE NUMBER (COLUMNS 3-5) 



Each specification line must be identified 
by a line number. The first two digits of 
the line number are preprinted on the form. 
The third position (column 5) is used when, 
after all specifications have been written 
on the form, it becomes necessary to insert 
an additional line between two previously 
written lines. The line to be inserted is 
written following line 15. It is given an 
appropriate number (and subnumber in column 
5). 



The cards must be in numeric sequence by 
columns 1-5 when they are read by RPG. 
This means that the specification cards for 
a program could be placed in numeric 
sequence (if, for example they were acci- 
dentally dropped or upset) by sorting or 
arranging them in sequence by page number 
and line number. 



FORM TYPE (COLUMN 6) 

Each form has an appropriate type- code 
preprinted in column 6. This code must be 
punched into all specifications cards. The 
codes are: 

I - Input 

C - Calculation 

- Output-Format 

F - File Description 

E - File Extension 



PAGE NUMBER (COLUMNS 1-2) 

Each specification page of the source pro- 
gram must be numbered. The pages are num- 
bered beginning with 01 for the file- 
description form, and continuing in the 
following sequence: 

File Extension 

Input 

Calculation 

output- Format 



COMMENTS (COLUMN 7) 



This feature enables the programmer to 
insert an identifying comment in the speci- 
fication sheets. This facility can be 
used, for example, to identify the end of 
one section of a program. These comments 
are written on the specification line, 
preceded by an asterisk in column 7. Dur- 
ing the generation of the object program, 
the asterisk in column 7 identifies the 
comment so that it is not considered a 
specification. 
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PROGRAM IDENTIFICATION (COLUMNS 75-80) 



This entry identifies the specification 
cards for a particular program or for a 
specific section of a large program. 
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INPUT SPECIFICATIONS SHEET 



GENERAL INFORMATION 



RECORD IDENTIFICATION ENTRIES 



The specifications for this sheet are 
divided into two categories as shown in 
Figure 29. 



1. Record Identification (columns 7-42). 
These entries identify the input record 
(by specifying the identifying record 
codes it contains) and specify the 
relationship of the record to other 
records in the file. 



2. Field Description (columns 43-74). 
These entries describe the fields of 
the input record used in the report. 
Each field is described on a separate 
line and is written on the line below 
its corresponding record-identification 
entry. 



FILE NAME (COLUMNS 7-14) 



A file name must be given to each input 
file. The file name must be left- justified 
(that is, it must start in column 7) and it 
must begin with an alphabetic character. 
The file name may be alphameric, but it 
must not contain special characters or 
blanks. The file name may be eight charac- 
ters or fewer. 

Note 1 ; In this publication, an alpha- 
betic character refers to the letters 
A-2, and the dollar sign, pound sign, 
and the at sign ($, #, and a). 

The file name must be entered only with 
the first record-identification line of the 
appropriate file. 

Note 2 ; The file name may be eight 
characters long but RPG will utilize 
only the first seven characters for all 
files except indexed-sequential files. 
For indexed-sequential files, only the 
first five characters of the filename 
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are utilized in the RPG program. 
Therefore, it is important that the 
first seven (or five) characters pro- 
vide a unique filename. 



SEQUENCE (COLUMNS 15-16) 



This entry designates the sequence of input 
record-types . 



Alphabetic Entries 



If the input records are not required to be 
in a predetermined sequence within a con- 
trol group, or if it is not necessary to 
terminate processing when the input records 
are not in sequence, the entry in columns 
15-16 should be a two- character alphabetic 
code. 



Numeric Entries 



If there is more than one record type with- 
in an input file, the records may appear in 
some predetermined sequence. To process 
the input data records in a predetermined 
sequence, the input records are specified 
on the Input Specification sheet in the 
same sequence in which they are to be read 
by the object program. For example, assume 
that the input records appear as shown in 
Figure 31. The Name Record is assigned 01 
because it is the first type. The Street 
Record is the second type. The Street 
Record is assigned 02. The City-state 
Record is assigned 03, and the I tem Number 
Record is assigned 04. (In this case, 
there may be several items-number records). 
If the input records do not appear in this 
predetermined sequence, program processing 
stops (information is out of sequence). 



In Figure 30, the input data records, 
which contain part numbers and unit number, 
do not appear in a predetermined sequence 
with in a control group. Consequently, 
each input record- type is assigned an 
alphabetic code because the order of proc- 
essing is not important to the program. 



( Port Number 



( Unit Number 
( Part Number 
( Unit Number 



( Unit Number 



fart Number 



5 in column 80 (Sequence AA) 
9 In column 80 (Sequence BB) 
5 in column 80 (Sequence AA) 
1 9 In column 80 (Sequence BB) 



3 9 in column 80 (Sequence BB) 



5 in column 80 (Sequence AA) 
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Figure 30. Input Data Records 
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Figure 31. Input Records in Sequence 
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Figure 32. Entries for Numeric Sequence 



Figure 32 illustrates the sequence in 
which the records must appear. 



Restrictions 



Numeric entries must consist of two 
digits. 



& The entries in a predetermined sequence 
must begin with 01 for each file (columns 
15-16 of the input sheet). 
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• The entries in a predetermined sequence 
must be in ascending order in columns 
15-16, 

• Header cards or other cards that are not 
in sequence must be specified on the 
Input Specification sheet before specifi- 
cations that are to be sequence- checked. 
Enter alphabetic sequence record-types 
first, followed by numeric- sequence 
record- types for each file. 

• A maximum of 99 record- types is allowed. 



NUMBER (COLUMN 17) 



If a numeric code is assigned under 
Sequence , an entry must also be made in 
Number (column 17). If an alphabetic code 
has been assigned under Sequence , leave 
this column blank. 

The entries for Number (column 17) are: 

1 - Only one record of a type may be 
present in a control group. 

N - One or more records of a type may 
be present in a control group. 

Blank - The records do not appear in a 
determined sequence. 

As shown in Figure 32, there can only be 
one Name Record , but there can be multiple 
Item Number Records. 



OPTION (COLUMN 18) 



This specification is used only with 
numeric-sequenced record-types. If a 
specific record-type must be present to 
perform an operation, leave this column 
blank. If the presence of a record is 
optional, enter the letter in column 18. 

In Figure 32, the (alphabetic) in 
column 18 indicates there may or may not be 
an Item Number for each group. In this 
example. Name , Street , and City-state 
records must be present. 



RESULTING INDICATOR (COLUMNS 19-20) 



The entry in these columns is used in con- 
junction with the next entry Record Iden- 
tification Codes . This entry serves two 
functions : 



1. It establishes a unique two-digit code 
for each input-record type. 

2. A special indicator is turned on in the 
object program each time the input 
record is present. That is, the object 
program may test for this condition 
during the processing of the calcula- 
tion and output specifications. 

To understand the first function of this 
entry, assume that an input record is iden- 
tified by all of the following codes: 

1. An X in column 80. 

2. A digit 5 in column 79. 

3. No R in column 78. 

By assigning one two-digit result ing- 
indicator code to represent all these 
codes, it is easier to refer to this input 
record during the processing of the 
calculation and output specifications. 

As an example of the second function of 
this entry, resulting indicators may be 
compared to selectors in punch ed-card 
machines or to internal and external 
switches on electronic data processing 
machines. The use of resulting indicators 
(like the use of selectors and switches) 
permits certain operations to occur only on 
specific conditions. 

In Figure 32, the four record-types have 
been assigned resulting indicators 12, 13, 
14, and 15. When one of the records is 
present, the appropriate resulting indica- 
tor is turned on, and those specifications 
pertaining to the record are performed. 
Specifications associated with other 
record- types are not performed. 

Resulting indicators are turned on and 
off during the processing of the object 
program, as the various record-types are 
read by the system. However, only one 
resulting indicator (for a record-type) can 
be on at one time. When a resulting indi- 
cator is turned on, all other resulting 
indicators are turned off. There is one 
exception to this condition (see Chaining) ♦ 

Other indicator conditions that can be 
established in the program are field indi- 
cators (columns 65-7 of the Input Specifi- 
cation sheet) and resulting indicators 
(columns 54-59 of the Calculation Specifi- 
cation sheet) . These functions are des- 
cribed later, but one aspect of their use 
is of interest at this time. 

All three types of indicators are 
assigned a two-digit number from 01-99. 
The indicator codes can be assigned in any 
sequence. For example, four different 
record-types could be assigned codes 40, 
62, 98, and 02. 
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RECORD- IDENTIFICATION CODES (COLUMNS 21-11) 



These entries provide a way of identifying 
each different record-type used in the 
object program. As mentioned previously, 
once the record-type has been defined on 
the Input Specification sheet, references 
to the record are made by its resulting 
indicator. 

These columns provide for the entry of 
one to three identifying codes as indicated 
by the numbers 1, 2, and 3 on the Input 
Specification sheet. It is possible to 
specify more than three codes by using more 
than one line. If only one record-type is 
in the input file, the identification codes 
can be left blank, but a resulting indica- 
tor and sequence number must still be spec- 
ified. 



codes contained in the records. The entry 
in column 26 specifies whether the object 
program is to compare against the entire 
character (C), against only the zone por- 
tion (Z), or against only the digit (D) . 
Enter a C, Z or D in column 26. 



ZONE RECORD IDENTIFICATION; Testing a zone 
means that the zone of the character speci- 
fied in columns 21-24 of the input sheet is 
used to identify the record. The amper- 
sand, the minus, and the blank are excep- 
tions. An ampersand will be identified as 
an 11- zone, and a blank will be identified 
as a no-zone. The four common zones are: 



1. 12- zone or plus zone (0, A- I, and &). 



Each of the three sets of entries is the 
same, so only the first set (columns 21-27) 
is described. Each set is divided into 
four categories: 

Position (columns 21-24) 
Not (column 25) 
C/Z/D (column 26) 
Character (column 27) 



11- zone or minus zone (0, J-R, and 
minus ) . 



0-zone (S-Z) . 



4. No zone (0-9 and Blank). 



Position (Columns 21-24) 



Enter in this column (or columns) the posi- 
tion in each data record of the character 
that contains the identifying code. The 
position must be right- justified in columns 
21-24, and leading zeros may be omitted. 



When you use a blank, ampersand, or 
minus in the character portion of a zone 
test, other characters which contain the 
same machine zone (e.g. ?, £, or %, 
respectively) will not satisfy the zone 
test. 



Character (Column 27) 



Not (Column 25) 



Enter an N in this column if the code des- 
cribed must not be present in the specified 
record position. Otherwise, leave this 
column blank. 



Enter in this column the identifying char- 
acter that will be compared to the charac- 
ter specified in the input record. The 
character used in this column may be any 
letter A-Z, any number 0-9, or any special 
character. 



C/Z/D (Column 26) 



Examples of Record-Identif ication Codes 



The object program identifies the different 
record-types of a program by comparing the 
character written in Character against the 



Examples of record-identification specifi- 
cations are shown in Figure 33. The expla- 
nation of each entry is given here. 
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Figure 33.. Record Identification Codes 



This entry specifies an 11- zone in 
record position 48. Any of the letters 
J-R, or the minus sign, could be placed 
in Character because they all contain 
an 11-zone. A Z must be placed in 
column 26 so that only the zone portion 
is checked. If a C were placed in this 
column, the object program would com- 
pare the letter K against the input- 
record code instead of a 11-zone. A 
minus could be placed in this field to 
represent an 11-zone, and an ampersand 
could represent a 12- zone. 

This entry specifies that no 11-zone 
may be present in record- position 48. 

This entry specifies that the digit 
portion of the code is checked. A 
character whose digit portion is 5 must 
be in record- posit ion 62. For example, 



a 5, N, V, or E would fulfill this 
requirement. 



4. This entry specifies that the letter T 
must be present in record- position 49. 

5. These entries specify that all three 
codes must appear in the same record. 
A 4_ must appear in column 16. Column 
40 must not contain the number 5, and 
column 80 must contain a 12-zone. This 
is known as an AND relationship. 

The last example illustrates the way to 
specify more than one code on more than one 
line. If an input record contained five 
different codes, they could be specified as 
shown in Figure 34. This is also known as 
an AND relationship. It implies that the 
card is identified by: 



BOS/360 RPG (8K Disk) 



45 



IBM 



INTERNATIONAL BUSINESS MACHINES CORPORATION 

REPORT PROGRAM GENERATOR INPUT SPECIFICATION 

IBM System/360 



Program . 
Program fr 



Punching 
Imlruclion 


Graphic 
















Punch 























i. 

J 

6 






















z 

J 

E 

s 
Z 

17 


o 

•1 

18 






Record Identification Codes 


•B 

1 
42 


J 
43 


Field 






J 

a 




Unt 
3 4 5 


Filename 

7 8 9 10 11 12 13 14 


s 

! 

IS 14 


1 
19 20 


i 


2 


3 


Location 




Position 

21 32 23 24 


z 

z 

23 


a 
26 


27 


Position 

28 29 30 31 


z 

z 

32 


a 

u 

33 


34 


Position 

35 36 37 38 


z 

z 

39 


Q 
N 

40 


■8 

41 


From 

44 45 46 47 


To 


Fie 


i 


1 





1 


P 


/) 


y 


R 


B 


p 


T 




A 


ft 






2 


6 






1 


6 




c 


4 






4 


4 


N 


c 


5 


j 


*!<£ 




7 


^ 






! j j 


1 ! ! 






4> 


I 


4 


1 
















A 


N 


D 














2 


4 




c 


2 






25 




c 


3 


1 




















] 









3 




1 














































! 










1 1 : 












i 






! 




— i- 






















































































1 




' 



c Figure 34*. Specifying More Than Three Identification Codes 



1. A 1 in column 16, and 

2. No 5 in column HO, and 

3. hn 11- zone in column 80, and 

4. A 2 in column 20, and 

5. A 3 in column 25. 



The use of this facility and its advan- 
tages will be easier to understand 
after the explanation of Rec ords in an 
OR- Relationship . 



Additional specification lines can be 
used to specify as many record 
identification codes as required. Each 
additional line must begin with the word 
AND in columns 14-16 and blanks in columns 
17-20. 



OR Relationship 



Three types of OR relationships are possi- 
ble: 

1. One or more record- types have the same 
fields in the same positions of the 
record. (All fields in one record-type 
are in the same relative positions in 
another record- type. ) 

2. One or more record-types have the same 
fields, but the fields are in different 
positions of the record. For example: 
unit cost is in positions 21-25 in one 
record- type and in positions 31-35 in 
another record-type. 

3. One or more record-types have different 
fields in the same positions or in 
different positions of the record. For 
example: two record-types with ten 
fields in the same relative positions, 
but with three fields in different 
positions. It is of value to specify 
these record-types in an OR relation- 
ship only if there are more fields that 
are alike than fields that are unlike. 



Omitting Record Identification 



When input records are to be processed 
alike without regard for their identifying 
codes, columns 21-41 may be left blank; 
however, sequence (columns 15-16) and a 
resulting indicator (columns 19-20) must be 
specified. 

When only certain record-types within a 
group are to be read and processed, they 
must be listed first with their identifying 
record codes. The remaining record- types 
may be bypassed or processed as a group. 
In either case, they are specified as the 
last record- type and they must have a 
res ult ing indi ca tor s~ pecif fe d j£5x Ahettu. 
"Columns 21-41 "of the Input Specification 
sheet are left blank. 

Note : If the records are to be 
bypassed, they should not be referred 
to on the calculation or output sheets. 



STACKER SELECT (COLUMN 42) 



If the input record type is from cards that 
are to be stacker-selected, the number of 
the stacker into which the card is to be 
selected is entered in column 42 . Leave 
column 42 blank if the cards are to go to 
the normal pocket. 
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The stacker pockets and their acceptable 
codes are: 



I IBM 1442 I 

j Pocket Code | 

| 1 | 1, or blank | 

I 2 | 2 | 



I IBM 254Q | 

j Pocket Code | 
j. „ ^ 

| Normal J Blank | 
| 1 | 1 | 

[ 2 1 2 | 



The stacker-select entry should be made 
on the same line with the record identifi- 
cation. If different records in an OR 
relationship are to be stacker-selected, 
enter the codes on the same line with the 
record identification. gf^r-k^ r select mus t 
be specifi ed oru eflgh; line .AD^ajLJQfib. 
relatfoJlBTTlp if 



i^s^desjjtejU 



FIELD DESCRIPTION ENTRIES 



As mentioned previously, the Input Specifi- 
cation sheet consists of two categories: 
record identification and field descrip- 
tion. 



On the record identification portion of 
the Input Specification sheet, one line 
represents the specifications for one 
record- type. On the field- description 
portion of the sheet, one line represents 
the specifications for one field of a 
record. 

The following information concerns the 
individual field descriptions of one 
record-type. Field descriptions are always 
written on the specification line immedi- 
ately below the specification line that 
identifies the record-type. 

Field description entries describe the 
fields of the input record to be used in 
the report. Each field of the record 
requires one line on the Input Specifi- 
cation sheet. Columns 7-42 of the line 
must be blank. 



COMBINED FILES STACKER SELECT 



PACKED (COLUMN 43) 



When there are combined f iles to be 
stacker-selected, the user can determine 
'She stacker pocket into which the cards 
will fall. The S tacker Select entries 
(column 42 of the Input Specification sheet 
and column 16 of the Output-Format Specifi- 
cation sheeQO must be utilized in one of 
the following ways when using an IBM 1442 
Card Read-Punch: 



Enter a P in this column if the input field 
is in the packed decimal format. Other- 
wise, leave this column blank. 

Note 1 : If a P is entered in this 
column and the input field specified is 
blank, an arithmetic check and an 
abnormal end-of-job will occur. 



1. If stacker posket 1 is selected, enter 
1 in the appropriate column of either 
sheet. The remaining entry can be 1 or 
blank. 



Note 2 : If the field is in packed 
format, RPG will compute the unpacked 
field length using the following formu- 
la: 



[(TO Position-FROM Position) *2]-l 



2. If stacker pocket 2 is selected, enter 
2 in the appropriate column of either 
sheet. The remaining entry can be 1, 
2, or blank . 

Note : When there is to be punched 
input and punched output, stacker pock- 
et 2 always takes precedence; i.e., it 
can never be overridden. 

When an IBM 2540 Card Read-Punch is 
used, and the combined files are to be 
stacker selected, the last entry specified 
always takes precedence. 



FIELD LOCATION 



Columns 44-51 of the Input Specification 
sheet are used to describe the location of 
each field in the record. The maximum 
field length for a numeric field is 15 
digits. The maximum field length for an 
alphameric field is 256 characters. 
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FROM (COLUMNS 44- 4 7) 



This entry shows the location of the first 
position of the field, that is, the high- 
order position. The entry in columns 44-47 
is right- justified, and preceding zeros may 
be omitted. 



In Figure 35 note that OR has been entered 
in columns 14-15. Thus, two different 
input records have the same fields, but the 
identifying codes are different. The OR in 
columns 14-15 indicates that the fields may 
be taken from an input record that has a 5 
in column 35 and no 11-zone in column 80, 
or the field may be taken from an input 
record that has a 6 in column 35. Thus, 
Figure 35 shows the only additional speci- 
fication required to specify both input 
records that are acceptable. 



TO (COLUMNS 48-51) 



This entry shows the location of the last 
position of the field (the low-order 
position). The entry in columns 48-51 is 
right- justified, and preceding zeros may be 
omitted. In Figure 35, the field DEPT may 
be found in columns 5-8 of the input 
record. 



RECORDS IN AN OR-RELATIONSHIP 



It is possible to specify two different 
record-types (whose fields are in the same 
positions) with one set of specifications. 



Note : In this case, it is not neces- 
sary to enter indicator 14 for the 
second record identification, because 
it has been previously specified. 



It is also possible to specify two 
records in an OR-relationship when the 
field records are not in the same location. 
Using Figure 36, notice in columns 19-20 
that resulting indicator 14 is turned on 
when a 5 is in column 35 and no 11- zone is 
in column 80. Resulting indicator 16 is 
turned on when the input record has a 6 in 
column 35. By specifying an OR- 
relationship, it is possible to specify 
both record-types with one set of 
specifications . 
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• Figure 35. Specifying Input Fields 
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• Figure 36. Specifying Field Location 



In this example, the field locations are 
not the same in both types, so it is neces- 
sary to provide a separate resulting indi- 
cator code for the second record type. The 
second line, columns 14-27, of Figure 36 
indicates that there is a second input 
record that is acceptable. However, FLDC 
(field C) is not located in the same posi- 
tions in both record- types, so it must be 
specified twice. Each of the two entries 
for FLDC must be related to the appropriate 
record type. This is accomplished by 
entering the resulting indicator code, 
which is taken from columns (63-64). 

Thus, if resulting indicator 14 is on, 
FLDC will be taken from positions 66-7 of 
the input record. If resulting indicator 
16 is on, FLDC will be taken from positions 
61-6 5 of the input record. 

Specifying record-types in an OR- 
relation is not limited to only two 
records. As many records as are required 
can be specified as having an OR- 
relationship. 



1. It is used by the object program to 
determine the number of decimal posi- 
tions contained in the numeric field 
which is specified in Fiel d Location. 

2. It causes the field specified in field 
location to have 0-, 11-, or 12-zone 
bits removed from all positions of the 
field except the units position. 

Enter in this column the digit that 
represents the number of decimal positions 
in the input data field. If the data is a 
whole number, enter in this column. An 
entry in this column specifies this field 
is a numeric field. If the field contains 
alphameric data that is to be treated as 
alphameric data, leave this column blank. 

In Figure 36, DIVSON is an alphameric 
field and no entry is made in column 52. 
However, FLDA through FLDC are numeric 
fields but they contain no decimals. A 
zero is entered in column 52 for these 
fields. 



FIELD NAME (COLUMNS 53-58) 



DECIMAL POSITION (COLUMN 52) 



An entry in this column serves two 
functions : 



Each field defined must be given a field 
name. Once a name has been assigned to a 
field, other references to it are made by 
using the field name, rather than by using 
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the specific record position each time. 
Thus, the record positions of the input 
fields are not needed when writing the 
calculation and output specifications. 



The field name must begin with an alpha- 
betic character, and it must start in 
column 53. The field name may be alphamer- 
ic. 



Two input files may have fields with the 
same field names. A field name is assigned 
only once by RPG. Two input files will use 
the same storage location for fields with 
identical names. This procedure is permis- 
sible when using RPG, but the programmer 
should be aware that possible errors in 
calculations or output may occur when two 
input files have the same field names. 
This is especially important when chaining 
fields are specified on the Input Specifi- 
cation sheet. 



Specifying Constants 



The term constant is frequently used for 
information that is not changed with each 
record. It is usually not altered during 
the object run. Examples of constants are 
date cards, or other data that may be 
changed for each run. The technique to get 
this information to the program is by 
defining a special record type and by 
assigning a field name that is not other- 
wise used. If the constants must be avai- 
lable before the first data record of a 
file is processed, it may be necessary to 
define an additional file. This technique 
will also permit entering of constants that 
are too large to be specified as literals 
in the source program. 



Figure 37 illustrates field names that 
are easy to read and suggest the function 
of the fields they represent. 



Certain restrictions apply to the selec- 
tion of field names. The following names 
can only be used in certain instances, and 
cannot be used at any time other than that 
specified. 



TAB 



2. PAGE 



3. A L T S E Q. 



4. C N T D 



I N n n 



These three characters 
can only be used as a 
prefix to the name of a 
table . 

This prefix can only be 
used in reference to page 
numbering . 

This name cannot be used 
as a field name. 

This name can only be 
used in conjunction with 
the conversion routine. 

This name can only be 
used as an RLABL ref- 
erencing an indicator. 



Specifying the Same Data Field as 
Alphameric and Numeric 



If the same field from an input record is 
to be used as both an alphameric and a 
numeric field, the field must be specified 
twice by assigning two different field 
names to the same location in the record. 
If no decimal positions are specified for 
the field, it is considered to be an 
alphameric field. 
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CONTROL LEVEL (COLUMNS 59-60) 



As the object program is processed, a 
change in a control field causes all proc- 
essing indicated by this change to be ini- 
tiated. Columns 59-60 are used to provide 
a convenient and simple method for speci- 
fying all control functions. 

Up to nine control levels can be used by 
RPG. These levels are designated LI, L2, 
L3„...L9. An indicator similar to the 
resulting indicator is associated with each 
control-level designation. They are used 
to control functions specified on the cal- 
culation and output specification sheets. 
When the field specified in Field Location 
is a control field, its appropriate control 
level must be specified in columns 59-60. 
Figure 37 shows the entries for three con- 
trol fields. (The control fields could 
have been listed on the sheet in any 
sequence. ) When more than one file has 
control levels specified, the overall 
length of each control field must be the 
same length for all record types. 



automatically performs the operations of 
storing the field twice and performing the 
appropriate zone elimination. No 
additional specifications need be written 
by the programmer. 

SPLIT CONTROL F IELDS; Several fields in an 
input record can be specified as one con- 
trol field. In the lower half of Figure 
37, three fields, which are not in continu- 
ous record positions, are specified with 
the same L4 control level. The three 
fields are treated as one control field: 



CUSNO 



ACTNO 



REGNO I 



The first field defined on the input 
sheet is placed in the high-order position, 
and the last field is placed in the low- 
order position. All fields are placed 
according to the sequence in which they are 
defined on the Input Specification sheet. 



USING SPLIT CONTROL FIELDS WITH FIELD 
RECORD RELATION 



Additional Functions of Control Level 
Specif icat ions 



Several rules must be observed when split 
control fields (columns 59-60) are 
specified in conjunction with Field-Re cord 
Relation (columns 6 3-64). 



If a field specified in field location also 
has an entry in control level, the object 
program places thes field into two main 
storage areas. One area, known as a 
control-f i€>ld holding area , is used for the 
controlling functions of the field, and the 
other is used for any other uses of the 
field (such as for printing or for arith- 
metic calculations). 

For example, it may be necessary to use 
a field for controlling functions but with- 
out considering zone bits in the comparison 
of the record to the next record. If the 
zone bits cire not to be used in a compari- 
son, specify the field as numeric by making 
a decimal entry in column 52. If the zone 
bits are to be used in a comparison, leave 
column 52 blank. In Figure 37, L3 in 
columns 59-60 causes the field DIVNO to be 
placed into storage in one area with zone- 
bits removed from all positions of the 
field to be used for control functions and 
to be placed in another area with zone bits 
removed from all positions of the field 
except the units position. The RPG program 



1. For each indicator, the sum of the 
length of the split fields must be 
equal to the length of the combined 
control fields as originally defined 
for a particular control level. In 
Figure 38, the sum of the lengths of 
FLDA and FLDB (Ll for blank indicator) 
must be equal to the sum of the lengths 
of FLDA1 and FLDB1 (Ll for indicator 
01) . 

2. Within the specifications for a qiven 
indicator (in the Field-Record Relation 
columns) , the control levels must be in 
ascending sequence. In Figure 38, the 
specifications for indicator 01 are 
entered in ascending sequence (Ll, Ll, 
and L4) . 

3. The split control levels specified with 
no entry in Field-Record R elation 
(blank resulting indicator) must be 
specified first. In Figure 38, the 
fields FLDA-FLDE (blank in columns 
63-64) are entered before the remaining 
entries are specified. 
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Figure 38. Using Field-Record Relation 



The split control fields associated 
with a specific indicator must be spec- 
ified together. In Figure 38 f the 
control levels associated with indica- 
tor 01 are specified together, and the 
control levels associated with indica- 
tor 02 are specified together. 



7. 



on. The control fields without a 
field-record relation are disregarded. 



Each split control field must be either 
alphabetic or numeric throughout. 



Split control fields of the same level 
must not be separated. For example, it 
would be incorrect to place a data 
field between FLDA2 and FLDB2 (both 
LI). However, it is permissible to 
place a data field between different 
control levels. For example, the field 
ORDER is between FLDC (L2) and FLDD 
(L3). 

If split control fields of one level in 
one type of record are specified with 
and without field-record relation indi- 
cators, only the fields conditioned by 
a field-record relation are valid 
whenever the appropriate indicator is 



MATCHING FIELDS OR CHAINING FIELDS (COLUMNS 
61-62) 



These columns are normally used if the 
input consists of more than one file. It 
enables the program to match or chain the 
records of one file with those of another 
file. 
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Matching Fields 



If a field specified in Field Location also 
has an entry in Matching Fields, the field 
is placed into another main storage area 
known as a matchinq-field holding area - 

Up to three matching fields (designated 
by M1-M3) are allowed. This entry may be 
used to match records in different sequen- 
tial files. The second sample program at 
the back of this publication uses matching 
fields in a card input file and a tape 
input file to govern processing of records. 
A discussion of this use of matching fields 
may be found in Processing Multiple Input 
Files. 

USING THE MATCHING FIELDS SPECIFICATION FOR 
SEQUENCE- CHECKING : If only one input file 
is specified, fields within the file may be 
sequence-ch€>cked by using the matching- 
fields specification. Up to three fields 
within the file may be checked. A chaining 
file may also be sequence- checked. If the 
chaining field is to be sequence- checked, 
it must be defined twice, using two 
different field names. In Figure 39, three 
fields within the input file are to be 
sequence- checked. The data from the three 
fields will be moved by the RPG program to 
the matching-f ield holding area as shown in 
Figure 40. When the second record has been 
read, it will be moved as shown. The com- 
pare operation is made on all three fields 
at the same time. M3 is placed in the 
highest-ordesr position. Ml is placed in 
the low-order position. 
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Figure 39. Using Matching Fields in a 
Single Input File 



• Figure 40. Comparing Matching Fields 

In column 18 of the File Description 
Specification sheet the programmer must 
specify if the file is in ascending or 
descending sequence. In Figure 39 assume 
that the file has been specified in ascend- 
ing sequence. The number 003051008 is 
lower than 005025003. Thus, the file is in 
ascending sequence. 



EXIT TO A TRANSLATE SUBROUTINE 



If the sequence of the matching fields is 
not the same as the collating sequence of 
the System/360, the RPG program can provide 
an automatic exit to an external user sub- 
routine that translates the sequence of the 
matching fields to the collating sequence 
of the system. 

An entry in the Processor Control Card 
is all that is required to cause the RPG 
program to branch to the subroutine. The 
automatic branch occurs after the input 
card is read in and before the RPG program 
checks the sequence of the matching field. 

The subroutine to translate the matching 
fields must use the predefined label ALT- 
SEQ. The register conventions for this 
subroutine are the same as those for the 
EXIT operation code. (See Exit to a Sub- 
routine . ) The address of the hold area 
containing the matching fields to be tran- 
slated will be contained in Register 1. 
The subroutine must place the translated 
fields back into the matching-f ield holding 
area before it returns control to RPG. 
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The original data fields (to be used for 
controlling, printing, arithmetic calcula- 
tions, etc-) are not translated by the 
subroutine. 



Plus (Columns 65^66) 



A plus condition occurs when the value of a 
numeric field is greater than 0. 



| Chaining Fields 



The use of chaining files is explained in 
the section Chaining . Up to three chaining 
fields are permitted in a record. In these 
columns, enter the code that identifies the 
chaining field CI, C2, or C3. 



Minus (columns 67-68) 



A minus condition occurs when the value of 
the field is less than 0. 



FIELD- RECORD RELATION (COLUMNS 63-64) 



Zero or Blank (Columns 69-70) 



This specification is used to specify 
records in an OR- relationship when the 
field records are not in the same location. 
Enter in columns 63-64 the appropriate 
resulting indicator which will be on when 
the field is used. An explanation of the 
use of this specification was contained in 
Records in an OR- relationship , and an exam- 
ple of this specification is in Figure 36. 



Using Field-Record Relation with Chaining 
Files 



These columns (63-64) can be used to condi- 
tion chaining to a specific file. If the 
indicator entered in columns 63-64 is on 
when the chaining technique is used, the 
object program will then get the record 
from the designated file. When this column 
is blank, the chained record will be 
obtained whenever the specified record-type 
is present. 

For example, if MR is entered in Field- 
Record Relation , the field will be used as 
a chaining field only if the matching 
record indicator is on. 



FIELD INDICATORS (COLUMNS 65-70) 



Entries in columns 65-70 are used to test 
the status of a field when it is read into 
the system. This entry is an indicator 
that will be turned on when the field spec- 
ified on the line is plus, minus, or zero 
or blank. 



A zero condition occurs if a field contains 
all zeros or all blanks. 



Types of Indicator Codes for Plus, Minus, 
And Zero or Blank 



If the status of a field is tested so that 
calculation and output specifications can 
be modified, a two-digit field indicator is 
used in the appropriate columns (65-66, 
67-68, or 69-70). These codes, from 01-99, 
can be defined one or more times on the 
Input Specification sheet. If the same 
indicator is defined on more than one 
specification, the last specification exe- 
cuted will determine the status of that 
indicator. 

Using Figure 37, if the input-afield 
BALNCE is a plus number, field- indicator 01 
will be turned on. Indicator 01 will 
remain on until a new BALNCE is read in and 
tested. If FIELD2 is a minus number, 
field- indicator 02 will be turned on. If 
AMTDUE is zero or blank, f i eld-indicator 03 
will be turned on. 

Note : The indicator that is turned on 
remains on until the next time the 
field is tested by this particular 
specification. 

Note that defining these indicators 
means that they have been entered in 
appropriate columns of the Input Specifi- 
cation sheet. Using these indicators means 
that they have been specified on the calcu- 
lation or output sheets and that they are 
tested to determine their status. The 
field indicators will be discussed with the 
output and calculation sheets. 
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HALT INDICATORS 



Nine additional indicator codes, known as 
halt indicators , can be used in the RPG 
program. These indicators, designated as 
HI through H9, halt the processing of the 
object program when error conditions (as 
determined by the programmer) have been 
detected. These indicators can also be 
used in calculation and output specifi- 
cation sheets to control specifications and 
stop processing. For example: the status 
of a field can be tested, and depending 
upon the results of the tests, a halt indi- 
cator may be set on which will terminate 
the object program. 

If one of these indicators has been 
turned on during the processing of a 
record, the object program is stopped at 
the completion of the processing of that 
record. However, processing will not be 
interrupted if a halt indicator that has 
been turned on is turned off before the 
program attempts to read the next input 
record. 



position, enter an S in column 74. Leading 
zeros may be omitted. Leave these columns 
blank if the Sterling Specification is not 
used. Additional information on Sterling 
is in the section Sterling Routines for the 
Report Program Generator at the end of this 
publication. 



SUMMARY OF INPUT SPECIFICATIONS 



This concludes the description o 
specifications. Additional info 
matching or chaining fields may 
Proces sing Multiple Insert Files 
input specifications listed are 
the calculation and output forms 
and function of these specificat 
become more apparent to the read 
the descriptions of the calculat 
output specifications have been 



f the input 
rmation on 
be found in 

The 
used with 

The use 
ions may 
er after 
ion and 
read: 



STERLING (COLUMNS 71-7 4) 



Enter in these columns the position in the 
record that contains the sign of the Sterl- 
ing field. If the sign is in the normal 



Resulting Indicator 
Field Name 
Control Level 
Matching Fields 
Field Indicators. 
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CALCULATION SPECIFICATION SHEET 



This sheet is used to specify the opera- 
tions to be performed by the object program 
upon the input data and upon data obtained 
as a result of other calculations. Two 
general rules govern the writing of calcu- 
lation specifications: 

1. Each operation is specified on one line 
of the sheet. Operations must be list- 
ed in the order in which they are to be 
performed in the object program. 

2. Detail calculations must precede all 
total calculations. Calculations with- 
in these two groups must be specified 
in the order in which they are to be 
performed on the data. 

The calculation sheet is divided into 
three categories as shown in Figure 41: 

1 . When calculations are to be performed . 
These entries (columns 7-17) determine 
when the calculations are to be per- 
formed and upon what conditions they 
are to be performed. 

2 . What kind of calc u lations are to be 
performed . These entries (columns 
18-53) determine the kind of calcula- 
tions to be performed, such as add, 
subtract, multiply, etc. These entries 
also supply information about the 
result of the calculation. 



results of the calculations to modify 
subsequent calculations or output 
specifications . 



WHEN CALCULATIONS ARE TO BE PERFORMED 



3. What tests are to be made on the 



results of the calculations, 



These 



entries (columns 5 4-59) test the 



(COLUMNS 7-17 



The two specifications in this category are 
control level and indicators. 



CONTROL LEVEL (COLUMNS 7-8) 



Calculations are performed either at detail 
time or total time. These columns (7-8) 
indicate the control level of calculations 
performed at total time. An entry (L1-L9, 
LO, LR) in these columns determines the 
control level of the calculation specified 
in columns 18-59. 

A control break for a specific control 
level forces all lower control level indi- 
cators to be turned on. For example, an L3 
break causes L3, L2, and LI indicators to 
be turned on. A blank entry specifies that 
the calculation will be performed at detail 
time. 

A test for a control change is made 
after each record is read into the system. 
Total calculations are performed after this 
test is made and before the record that 
caused the control change is processed. 
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•Figure 41. Calculation Specification Sheet 
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The entries for this specification are 
the control-level indicators L1-L9 and the 
indicators LR and LQ. A control level 
indicator is turned on by a control break. 
It is on during total time, and it remains 
on for the following detail time, which 
includes both the calculating and the 
printing of the detail record* An entry of 
L1-L9 in these columns is obtained from the 
Control Level field on the Input Specifi- 
cation Sheet, columns 59-60. 



LR (Last Record) Indicator 



This indicator is turned on after the last 
input record has been read and calculated, 
and after the appropriate detail records 
are written. At this time, the control- 
level indicators LI through L9 are also 
turned on. 
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Figure 42. 



Using Control Level Specifi- 
cations 



INDICATORS (COLUMNS 9-17) 



L0 (Level Zero) Indicator 



This indicator is always on during the 
processing of the object program. By 
specifying L0, total calculations can be 
performed even though a control break has 
not occurred. This operation would be 
useful in an application when totals for 
one page of a printed report were to be 
accumulated when no control break had 
occurred. 



Using Control Level Specifications 



Figure 42 illustrates six control-break 
specifications. If an object program had 
only detail calculations, this specifi- 
cation would be left blank. The indicators 
that control detail calculations are speci- 
fied in columns 9-17. 



The entries in columns 9-17 indicate the 
conditions that control the calculations 
specified in columns 18-59. From one to 
three indicator codes (considered to be in 
AND relationship) may be specified. The 
AND relationship means that if three indi- 
cator codes are specified, all three indi- 
cator conditions must be satisfied before 
the calculation can take place. Enter in 
columns 10-11, 13-14, and 16-17 the indica- 
tors that must be checked when the calcula- 
tion is to be performed. If an indicator 
must be off, enter an N in either column 9, 
12, or 15 (whichever is appropriate) . 

The specifications used in these columns 
can be arranged into the following categor- 
ies: 

1. If columns 9-17 and columns 7-8 are 
blank, the calculation specified on the 
line is performed each time a detail 
record is read. 

2. A resulting- indicator code determines 
the particular record type on which the 
calculation is to be performed. This 
calculation will not be performed on 
any other record type. 

3. A field-indicator code controls the 
calculation according to the status of 
an input field. 

4. A resulting-indicator code controls the 
calculation by conditions that occurred 
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on previous calculations. (This fea- 
ture is shown on the Calculation Speci- 
fication sheet, columns 54-59, but it 
has not been discussed at this time. ) 



5. A control-level indicator, L1-L9, used 
with a particular resulting indicator 
permits the calculation to be performed 
at detail time, but it is performed 
only on the first record of the control 
level specified. 

6. The matching- record indicator code, MR, 
means that the calculation is performed 
only if there is a matching record in a 
second input file. 

7. The halt indicators H1-H9 are normally 
used to terminate the program or to 
suppress a calculation when an error 
has been detected in the input data or 
on a previous calculation. 

8. The overflow indicators permit the 
calculation to take place only if a 
page overflow has occurred. 

9. All total calculations will be bypassed 
until the first control break has 
occurred. 

In addition, this specification entry 
(columns 9-17) may contain a combination of 
some of the preceding categories. Also, a 
calculation may be controlled by the fact 
that an indicator must not be on. 

Figure 4 3 shows entries that may be made 
in columns 9-17. The numbers to the right 
of the entries refer to the following list: 
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1. The first example is a blank entry. 
This means that the calculation is 
performed on every detail record. 

2. In this example, indicator 16 could be 
a resulting indicator for a specific 
record-type. 

3. In this example, indicator 16 could be 
a resulting indicator, and indicator 18 
could be a field indicator, which is 
specified on the Input Specification 
sheet. If indicator 18 is used to test 
an input field for blanks, this entry 
means, in effect, that the calculation 
would be performed if record-type 16 is 
present and the contents of the field 
represented by indicator 18 is not 
blank. 

4. This example is similar to the previous 
example. However, indicator 19 could 
be a resulting indicator, turned on by 
the previous calculation. The calcula- 
tion specified on this line in columns 
18-59 would not be performed unless 
indicator 19 was also on. 

5. This entry means that the calculation 
is performed at detail time on control- 
level 1, and only if indicator 24 is 
on. 

6. This entry means that the calculation 
is performed only if indicator 16 is on 
and there is a matching record 
condition. For example, when fields 
from detail records are multiplied by a 
factor contained in a master record, 
the program must have a way of insuring 
that the detail record has been matched 
with the appropriate master record. 

7. The entry of HI prevents the object 
program from performing the calculation 
if an error condition has occurred. 
Note that when an error occurs, the job 
is not terminated until after all proc- 
essing for the record has been complet- 
ed. This facility is provided so that 
the programmer can prevent the calcula- 
tion of erroneous data. 

8. This entry means that the calculation 
is performed on the detail cycle fol- 
lowing an overflow condition. 



KINDS OF CALCULATIONS TO BE PERFORMED 



This section describes the kind of calcula- 
tions to be performed. These specifi- 
cations answer the following three ques- 
tions: 



• Figure 43. Using Indicators 



1. What fields are to be used? 



2. What is the operation (add, subtract, 
multiply, etc., ) ? 

3. What is done with the result? 



3. A single quote symbol may be contained 
within a literal by entering an addi- 
tional single quote symbol within the 
literal. For example, the literal 
o'clock would be coded as •o' , clock'. 



FACTOR 1 (COLUMNS 18-27) 



Figure 44 illustrates entries for 
Factor 1. 



This specification can be a field name or a 
literal. If it is a field name it must 
have been defined on the Input Specifi- 
cation sheet, or it must have been defined 
in the result field of another calculation. 
The field name must be left- justified, and 
the first character must be either alpha- 
betic or a, #, or $. 



Literals 



A literal is the actual data to be operated 
on, rather than a name representing the 
location of data. Literals may be numeric 
or alphabetic. Numeric literals may be up 
to ten characters long. Alphameric liter- 
als may be up to eight characters long. 

NUMERIC LITERALS; A numeric literal can 
consist of any combination of the numbers 
0-9. One decimal symbol and/or one plus 
sign or one minus sign may also be used. 

Rules for Forming Numeric Literals : 

1. Blanks must not appear within a numeric 
literal. 

2. The sign, if present, must be the left- 
most character. If a literal is 
unsigned, it is treated as a positive 
literal. 

3. The decimal point can appear anywhere 
in the literal. 

4. Numeric literals must not be enclosed 
in quote symbols. 

ALPHAMERIC LITERALS: Any set of consecu- 
tive characters enclosed in a set of 
single-quote symbols is treated as an 
alphameric literal. Alphameric literals 
may be used for compare operations, but 
they may not be used in computations. 

Rules for Forming Alphameric Literals : 

1. Any character may be used in an alpham- 
eric literal. Blanks are treated as 
valid characters in the body of the 
literal. 

2. Alphameric literals must be enclosed in 
a set of single-quote symbols. 
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Figure 44 . Factor 1 

1. GROSS could be a field name specified 
on the input sheet. 

2. NETAMT could have been specified as the 
result field of the previous calcula- 
tion. 

3. This numeric literal could be used in 
the program to determine if specific 
fields in the input records were higher 
or lower than this number. The decimal 
position must be indicated (if the 
number is not a whole number) but com- 
mas must not be used. 

4. Alphameric literals like the one in 
this example can be used to compare 
against a data field in the input 
records to perform certain types of 
calculations, only upon records rep- 
resenting the month of January. 

The discussion of Factor 1 also applies 
to Factor 2. 



SUMMARY OF FACTOR 1 AND FACTOR 2 



Enter either the name or the literal 
that is Factor 1 or Factor 2 in columns 
18-27, or 33-42. 

If Factor 1 or Factor 2 contains the 
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3. 

4. 
5. 



name of a field, the field must be 
defined in either* 

a. Columns 53-58 (Field Name) of the 
Input Specification sheet. 

b. Columns 43-48 (Result Field) of the 
Calculation Specification sheet. 

A name cannot exceed six characters. 
Special characters and blanks must not 
be used. 

A literal cannot exceed ten characters. 

Entries in Factor 1 or Factor 2 must be 
left- justified. 



OPERATION (COLUMNS 28-32) 



j Turning Indicators j 

j ON or OFF Code | 
j. 4 

| Set Indicators On ». SETON | 

| Set Indicators Off ...»». »~.. SETOF j 

l . : ■ . J 

r -■ ■ 1 

| Table Operations code | 
j. - ^ 

| Table Lookup .... LOKUP j 

L J 

r — 1 

| Conversion Routine | 

j Operations Code | 
I- ., 

| External Conversion Routine . EXTCV | 
I Record Key .... "... KEYCV | 

i . j 



Entries in these columns specify the opera- 
tion to be performed' using Factor 1, Factor 
2, and the Result Field. Each operation is 
specified by placing the operation code in 
the operation field (Columns 28-32). 

r ' 1 

| Arithmetic Operations Code | 
j. . . 1 

| Add ADD | 

| Zero and Add Z-ADD j 

| Subtract SUB j 

| Zero and Subtract Z-SUB j 

j Multiply MULT j 

| Divide DIV j 

| Move Remainder MVR | 

i j 

r 1 

| Move Operations Code | 
j. 1 

j Move MOVE j 

| Move-Leftmost-Data-Characters MOVEL j 

j Move Low-to-High Zone . MLHZO | 

| Move High-to-Low Zone MHLZO j 

| Move High-to-High Zone MHHZO j 

| Move Low- to- Low Zone MLLZO | 

l . J 

r t 

| Testing or Compare Operations Code | 

I. ^ 

| Compare COMP | 

| Test Zone TESTZ | 

L J 

r 1 

| Branching and Exit Operations Code | 
|. -| 

| Branching (or Go To) GOTO | 

| Providing a Label for GOTO . . TAG | 

j Exit to a Subroutine EXIT j 

j RPG Label RLABL | 

| User Label ULABL j 

L J 



ARITHMETIC OPERATIONS 



The fields or literals involved in this 
operation may contain numeric characters 
only. All arithmetic operations are per- 
formed with automatic decimal alignment. 
No arithmetic overflow will be sensed by 
RPG. The length of a field involved in 
arithmetic operations can be up to 15 
digits (this includes decimal alignment 
when necessary). The resulting field 
length after decimal alignment must not be 
greater than 15 digits. 



ADD (ADD) 



This operation causes the contents of the 
field or the literal in Factor 2 to be 
added, algebraically, to the contents of 
the field or literal in Factor 1. The 
result of the operation is placed in the 
result field specified in columns 43-48. 



ZERO AND ADD (Z-ADD) 



This operation causes the result field to 
be set to zeros and then causes the data 
contained in the numeric literal or the 
field in Factor 2 to be placed in the 
result field. Factor 1 is not used in this 
operation. 
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SUBTRACT (SUB) 



This operation causes the contents of the 
field or literal in Factor 2 to be sub- 
tracted, algebraically, from the contents 
of the field or literal in Factor 1. The 
result of this operation is placed in the 
result field specified. 



ZERO AND SUBTRACT (Z-SUB) 



This operation causes the negative of the 
number contained in the literal or the 
field in Factor 2 to be placed in the 
result field specified. This operation is 
performed after the result field has been 
set to zeros. Factor 1 is not used in this 
operation. 



MULTIPLY (MULT) 



This operation causes the contents of the 
field or literal in Factor 1 to be multi- 
plied algebraically by the contents of the 
field or the literal in Factor 2. The 
result of this operation is placed in the 
result field specified. 



DIVIDE (DIV) 



This operation causes the contents of the 
field or literal in Factor 1 to be divided 
by the contents of the field or literal in 
Factor 2. The result of this operation 
(quotient) is placed in the specified 
result field. The contents of the field or 
the literal in Factor 2 cannot be zero. If 
Factor 2 is zero, a program check and an 
abnormal end-of-job will result. Any 
remainder that results from this operation 
is lost unless the move- remainder operation 
is specified as the next operation. 

Note : If a move remainder operation 
follows a divide operation, the result 
in the divide operation cannot be half- 
adjusted. 

In this operation, RPG performs the 
adjustment of fields (divisor and dividend) 
when necessary. The divisor and dividend 
are adjusted by adding zeros to the right 
of the units position of that field. The 
following formula determines whether or not 
field adjustment is necessary: 



A = (Number decimal positions of Result 
Field) + (Number decimal positions 
of Factor 2) - (Number decimal 
positions of Factor 1) 

If A=0, no adjustment takes place. 

If A>0, the dividend will be adjusted. 

If A<0, the divisor will be adjusted. 

The amount of adjustment (the number of 
zeros added to the right of the units 
position) is determined by the absolute 
value of A in the preceding formula. 



MOVE REMAINDER (MVR) 



This operation 
remainder from 
separate field 
the RPG process 
follow the divi 
shows an exampl 
remainder is pi 
The field that 
be specified in 



is used to move the 
a divide operation to a 
that has been set to zero by 
or. If MVR is used, it must 
de operation. Figure 45 
e of the MVR operation. The 
aced in a field named STORE, 
contains the remainder must 
the result field. 



The value of the remainder can be deter- 
mined by the following formula: 

R = Dividend - (Divisor) (Quotient) 

The decimal positions of the remainder 
following the DIV operation are equal to 
the dividend decimal length (adjusted) . 

Note: A. move remainder operation can 
specify resulting indicators. 



MOVE OPERATIONS 



For the MOVE and MOVEL operations, unpacked 
numeric fields may be changed to alphameric 
fields, and packed alphameric fields may be 
changed to numeric fields. To change a 
numeric field to an alphameric field, Fac- 
tor 2 is numeric, and the result field is 
specified as alphameric. To change an 
alphameric field to a numeric field. Factor 
2 is alphameric, and the result field is 
specified as numeric. No decimal alignment 
is performed when a move operation is used. 
When moving an alphameric field to a numer- 
ic field, a validity check is not performed 
on the sign of the result field. 

Note: A move operation car.not specify 
resulting indicators. 
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• Figure 45. Using the MVR Operation Code 



MOVE (MOVE) 



This operation code causes data characters 
(starting at the rightmost position) to be 
moved from the field or literal contained 
in Factor 2 to the rightmost positions of 
the result field. 

If Factor 2 is longer than the result 
field, the excess leftmost positions of 
Factor 2 are not moved. 

If the result field is longer than the 
field specified by Factor 2, the positions 
to the left of the data that is moved 
remain undisturbed. 



If Factor 2 is longer than the result 
field, the excess rightmost positions of 
Factor 2 are not moved. 



If the result field is longer than the 
field specified by Factor 2, the positions 
to the right of the data that is moved 
remain undisturbed. When moving data to a 
numeric field, the sign of the result field 
is retained, except when Factor 2 is as 
long or longer than the result field. In 
this case, the sign of Factor 2 is assumed. 



Factor 1 is not referenced in this oper- 
ation. 



Factor 1 is not used in this operation. 



MOVE LEFT (MOVED 



This operation code causes (starting at the 
leftmost position) data characters to be 
moved from the field or literal contained 
in Factor 2 to the leftmost positions of 
the result field. 



Figure 4 6 shows a use of this operation 
code. FLDA contains a five-position number 
(10000). FLDB is a four-position field. 
The result of the MOVEL is 1000 in FLDB. 
In this example, the MOVEL operation code 
performs the same function as dividing FLDA 
by 10. 
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MOVE HIGH- TO- LOW ZONE (MHLZO) 



This operation moves t 
most position of Facto 
position of the result 
only be alphameric. I 
moved is located over 
operation can still be 
the numeric field must 
as an alphameric field 
fication sheet. The r 
numeric or alphameric, 
specified as numeric a 
standard plus or minus 
operation. Figure 47 
operation. 

Factor 2 



R423 



Before 
Move 



Zone 



1101 



he zone at the left- 

r 2 to the rightmost 
field. Factor 2 can 

f the zone to be 

numeric data, this 
performed; however, 
have been specified 
on the Input Speci- 

esult field can be 
A result field 

lways contains the 
zone after this 

illustrates this 

Result Field 
123 



Digit 



1001 



Zone ■ 


Digit 


1111 


0011 



the result field are alphameric or numeric, 
A result field specified as numeric always 
contains the standard plus or minus zone 
after this operation. 

Figure 48 illustrates the movement of 
zones for all of the preceding four opera- 
tion codes. 



Factor 
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High to 
High 




Result Field 



Figure 48. Move Zone Operation 
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Figure 47. Move High- to- Low Zone Operation 



MOVE LOW-TO-HIGH ZONE (MLHZO) 



This operation moves the zone at the right- 
most position of Factor 2 to the leftmost 
position of the result field. Factor 2 can 
be numeric or alphameric, but the result 
field must be alphameric. 



TESTING OR COMPARE OPERATIONS 



COMPARE (COMP) 



This operation causes the contents of the 
field or the literal in Factor 1 to be 
compared against the contents of the field 
or literal in Factor 2. The outcome of 
this operation can be used to turn on an 
indicator that has been specified in 
columns 54-59 (Result Indicators High, Low, 
or Equal). These indicators are turned on 
as follows: 



High 



Low 



Factor 1 is greater 
than Factor 2. 

Factor 1 is less 
than Factor 2. 



MOVE HIGH-TO-HIGH ZONE (MHHZO) 



Equal 



Factor 1 is equal 
to Factor 2 . 



This operation moves the zone at the left- 
most position of Factor 2 to the leftmost 
position of the result field. Factor 2 and 
the result field must be alphameric. 



MOVE LOW-TO-LOW ZONE (MLLZO) 



This operation moves the zone at the right- 
most position of Factor 2 to the rightmost 
position of the result field. Factor 2 and 



This operation is used to make compari- 
sons to alter or modify subsequent calcula- 
tions. No result field is specified. 

• The Factor-1 and Factor-2 fields are 
aligned according to whether they are 
numeric or alphameric. If numeric 
fields are compared, fields of unequal 
length are aligned to the implied deci- 
mal point. 

• Missing digits in numeric fields are 
assumed to be zeros. 
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• Figure 49. Using TEST ZONE 



If alphameric fields are compared, 
fields of unequal length are aligned to 
their leftmost characters. 



• The alphameric compare operation is 
based upon the internal collating 
sequence of the system. 

• For numeric fields, the maximum field 
length is 15 digits. 

• For alphameric fields of equal length, 
the maximum field length is 256 charac- 
ters. Eor^ alphameric fields of u nequal 
lengt h, the ma ximum fl§ld len3th^s""4ir~ 

' characters^ 



TEST ZONE (TESTZ) 



This operation is used to test the zone of 
the leftmost position of the alphameric 
field that is entered in the result field. 
(The result field must be alphameric.) If 
the result of the test is a 12- zone (plus), 
the indicator specified in columns 54-55 
will be turned on. If the result of the 
test is an 11- zone (minus), the indicator 
specified in columns 56-57 is turned on. 
Any other zone turns on the indicator spec- 
ified in columns 58-59. 

Figure 49 shows an example of this oper- 
ation. When indicator 25 is on, the field 
DATA is tested. If the leftmost position 
has a 12-zone, indicator 01 is turned on. 
If the leftmost position has an 11- zone, 
indicator 02 is turned on. 

If an ampersand is tested, it is consid- 
ered as a 12-zone. A minus is considered 
an 11- zone. 



BRANCHING AND EXIT OPERATIONS 



This operation code enables the programmer 
to transfer control from the RPG program to 
a user subroutine. Factor 2 contains the 
name of the subroutine. See EXIT to a 
User's Routine for a complete discussion of 
this operation. 



RPG LABEL (RLABL) 



This operation provides the facility for a 
subroutine, external to the RPG program, to 
reference a field in the RPG program. The 
name of the field to be referenced is 
entered in the result field. 

Note ; When Table Name is specified as 
an RLABL T the address supplied is that 
of the leftmost position of the table 
holding area . 



USER'S LABEL (ULABL) 



This operation enables the RPG program to 
reference a field contained in a user sub- 
routine. The name of the field to be ref- 
erenced is entered in the result field. 
The field length must be defined. 



BRANCHING OR GO TO (GOTO) 



The operation code GOTO enables branching 
to occur in the object program. This means 
leaving one point in the program to begin 
operations at some other location in the 
program. The location of the other routine 
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is identified by a name. This name is 
entered in Factor 2 and the code GOTO is 
entered in Operation (columns 28-31). For 
example, a routine (a group of 
specifications) to calculate the employee 
contribution to the Federal Insurance Con- 
tribution Act might be labeled FICA. 
Branching to this routine would require 
that Factor 2 of the GOTO operation con- 
tains the name FICA and that the first 
operation in the routine be a TAG opera- 
tion; that is f an operation that defines 
the name of the routine (refer to descrip- 
tion of next operation code) . 



Branching can be performed within detail 
calculations or within total calculations, 
but not between detail and total calcula- 
tions. Branching can be forw ard, tfik^-pp 1 *"? 
over specifica tion S J _or I; j _bacjcwa | '. d, Ig ping 
b ?LSJS^?"j5?® ci r lea 1 i ; ons ^rejriaualy skipped 
or processed) .( For additional inf orma- 
tXo'nT ^seeT Vslnq the Calculation Specif i- 
cation sheet. ) 



PROVIDING A LABEL FOR GOTO (TAG) 



TURNING INDICATORS ON OR OFF 



SET INDICATORS ON (SETON) 



This operation code causes the indicators 
specified in columns 54-55, 56-57, or 58-5 9 
to be turned on. 

Note; The column headings of plus, 
minus, or zero and high, low, or equal 
have no meaning during this operation, 
and should be ignored. Columns 54 
through 59 are used for this operation 
code merely to record three sets of 
indicator codes. 

Specify the first indicator in columns 
54-55, the second indicator in columns 
56-57, and the third indicator in columns 
58-59. One use of this specification is to 
turn on a halt indicator when input records 
are out of sequence. Any RPG indicator may 
be turned on. Figure 50 shows an example 
of this facility. The 01 is an indicator 
that is set on for the first record of a 
sequence. The L3 is a control level that 
occurs with the first record of the 
sequence. If such a situation (L3 and 01) 
does not occur, the halt indicator HI is 
turned on. 



The operation TAG (columns 28-30) provides 
a name to which the program can branch. 
Enter this name in Factor 1 and the code 
TAG in operation (columns 28-32). The name 
will be used as Factor 2 of the operation 
code GOTO. If the specifications in the 
TAG routine occur at total time, then the 
TAG operation must have L0 specified in 
Control Level . If they occur at detail 
time, a control specification is not 
required. 



SET INDICATORS OFF (SETOF) 



This operation code causes the indicators 
specified in columns 54-55, 56-57, or 58-59 
to be turned off. Any RPG indicators may 
be turned off. When an L3 break occurs, 
L1-L3 are turned on. If the user did not 
want LI on, he could have turned it off by 
using the SETOF operation code. 
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• Figure 50. Using SETON for a Record Out of Sequence 
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TABLE OPERATIONS 



CONVERSION ROUTINE OPERATIONS 



TABLE LOOKUP (LOKUP) 



EXTERNAL CONVERSION ROUTINES (EXTCV) 



This operation code causes \the field name 
contained in Factor 1 to be\ used as the 
search argument in a table lookup opera- 
tion. Factor 2 contains the; name of the 
table to be searched, and the result field 
contains the table from which the associat- 
ed function will be obtained. Decimal 
alignment is not performed for this opera- 
tion. (The result field may be left blank 
if the user wants to determine, if an argu- 
ment is present in the table, but does not 
require the corresponding function. > 



After the lookup operation is completed, 
the function that is retrieved is placed in 
a special holding area within the function v 
table. The/name of this area is the same 
as the name 
retrieved d 



r of the function table . The 
lata remains in this area until 
the next table lookup operation. 



To utilize the function in another oper- 
ation (for example in an arithmetic 
operation) i' the name of the function table 
is specified in Factor 1 or Factor 2 . In 
this case, the function table name in Fac- 
tor 1 or Factor 2 refers to the special 
holding area in the function table. 



To update the function table (for exam- 
ple, a move operation to replace the old 
function with the new updated function), 
the name of the function table is specified 
in the Result Field . The new function is 
then placed in its proper place in the 
function table. and in the special holding 
area. In this case, the function table 
name in the result field refers to the 
lqcation of the function within the func- 
tion table and within the special holding 
area. 



This operation is used to indicate the 
point in the RPG program where the random 
address conversion routine is to be per- 
formed. Factor 1 contains the internal RPG 
label as specified in columns 27-32 of the 
File Extension Specification sheet. Factor 
2 must contain the label of the external 
address conversion routine. The result 
field contains the name of the field that 
will contain the track address. The track- 
address length is always eight characters. 

Note : All EXTCV operations must be 
specified as the initial entry (s) on 
the Calculation Specification sheet. 
Up to 4 of these operations are 
permitted. 



X 



RECdRD KEY (KEYCV) 



This operation code establishes the name of 
the field that is to contain the key of the 
disk record. X (It is used only when records 
are retrieved using record key data.) The 
code KEYCV is placed in O peration (columns 
28-32) and the name of the key field is 
placed in Result F^eld (columns 43-48). 
The field length ana\deciraal positions must 
be specified. \ 

\ 

If the records are reprieved by key 
field, this operation must follow its EXTCV 
operation. The name of th\ field that will 
contain the record key cannot be declared 
in the external conversion routine. 



FACTOR 2 (COLUMNS 33-42) 



The discussion of Factor 1 also applies to 
Factor 2. 



After each table lookup operation, the 
retrieved function should be used (or moved 
from the special holding area to another 
location) before the next table lookup 
operation is performed. Each subsequent 
lookup operation overlays the function 
obtained from the previous lookup opera- 
tion. 



See Using Tables in the Object Program 
for additional information and examples of 
table lookup operations. 



RESULT FIELD (COLUMNS 43-48) 



The name of the result field, which is 
entered in these columns, sets up a loca- 
tion in storage to contain the result of a 
calculation. The name of the result field 
must consist of alphameric characters, or 
a, #, or $, and must be left- justified. 

The same name can be used several times 
in different calculations if the length of 
the field and the number of decimal posi- 
tions are the same for all calculations. 
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• Figure 51- Result Field Entry 



Figure 31 shows the result- field entry. 
On the first line GROSS is multiplied by 
DRATE, and the result field is DISCNT. 
DISCNT is then used as Factor 2 on the next 
line to calculate the net amount. The same 
result field is then used as Factor 1 on 
the next line to calculate total discount. 



FIELD LENGTH (COLUMNS 49-51) 



V 



This entry specifies the length of the", 
result field. The entry must specify tlie 
number of positions to be reserved for the 
result field, /in Figure 51, DISCNT is \ / 
eight positions long. The unpacked lengthV 
must be specified. The maximum numeric /\ 
field length is 15 digits, and the maximum ^ 
alphameric field length is 256 characters. 

I ■' 

If the sande field name is used for more 
than one calculation and the field lejigth 
and the number of decimal positions are the 
same, the f i^ld-lcrngth specification need 
not be specified more than once. 



If the result field is alphameric, this 
column must be left blank. 



HALF- ADJUST (COLUMN 53) 

/ 

This' specification is used to half-ad3ust, 
or/round, the result field. Enter an H in 
this column if the data in the result field 
is to be half-adjusted. 



Half 



Hair-adjusting is accomplished in the 
object program by adding a 5 to the right 
of the last position retained in the result 
field. 

In Figure 51, DISCNT is half-adjusted. 

This completes the description of the 
specifications required for determining the 
kind of calculations to be performed. 



TESTING THE RESULTS OF A CALCULATION 



DECIMAL POSITION (COLUMN 52) 



An entry in this column indicates the num- 
ber of positions to the right of the deci- 
mal point in the result field. An entry 
must be made in this column for all arith- 
metic operations if the field has not been 
defined previously. If the result field 
does not have any decimal positions, the 
entry must be a 0. A maximum of nine deci- 
mal positions can be specified. In Figure 
51 each result field has two decimal posi- 
tions. 



TheXlast category of the Calculation Speci- 
fication sheet is used to test the results 
of the calculation. 

\ 
\ 
\ 
RESULTING INDICATORS (COLUMNS 54-59) 

\ 

An entry in columns 54-59 may be used to 
test the value of a result field after the 
completion of an operation. As a result of 
the test, an indicator may be turned on 
that can be used to control subsequent 
operations or to control output operations. 
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A result-field indicator must be specified 
when using a compare or a table-lookup 
operation. If the same indicator is defined 
on more than one specification, the last 
specification executed will determine the 
status of that indicator. 

The entries in columns 54-59 are used in 
five ways: 

1. To determine whether the result of an 
arithmetic operation is plus, minus, or 
zero. 

2. To test the result of a compare opera- 
tion. 

3. To test the result of a table- lookup 
operation. 

<*. With the test-zone operation 

5. With the set-indicators-on and set- 
indicators-off operations. 



Result Field Indicator (Minus or Low) 
Columns 56-57 



Enter in these columns a two-digit indica- 
tor that will be set on when the result 
field, in an arithmetic operation, is a 
minus number. 



If a compare operation was performed, 
enter a two-digit indicator that will be 
set on when Factor 1 is lower than Factor 
2. 

If a table-lookup operation was per- 
formed, enter a two-digit indicator that 
will be set on when the table argument next 
lower than the search argument is found. 

In Figure 52, DISCNT is subtracted from 
GROSS and the result is stored in NETAMT. 
If the answer is a minus number, indicator 
10 is set on. If the answer is zero, indi- 
cator 15 is set on. 



Result Field Indicator (Plus or High) 
Columns 54-55 



Result Field Indicator (Zero or Equal) 
Columns 58-59 



Enter in these columns a two-digit 
indicator that will be set on when the 
result field, in an arithmetic operation, 
is a plus number. 

If a compare operation was performed, 
the indicator is set on when Factor 1 is 
higher than Factor 2. 

If a table- lookup operation was per- 
formed, enter the indicator that will be 
set on when the table argument next higher 
than the search argument is found. 



Enter in these columns a two-digit indica- 
tor that will be set on when the result 
field, in an arithmetic operation, is zero. 

If a compare operation was performed, 
enter a two-digit indicator that will be 
set on when Factor 1 is equal to Factor 2. 

If a table-lookup operation was per- 
formed, enter a two-digit indicator that 
will be set on when the search argument is 
equal to an argument found in the table. 
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Figure 52. Result Field Indicators 
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(Additional Calculations) 
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• Figure 53- Using the Calculation Specification Sheet 



In Figure 52, the literal JANUARY is 
compared against the contents of DATE. If 
the result is equal, indicator 24 is turned 
on- 



COMMENTS (COLUMNS 60-7 4) 



These columns may be used for comments. 



USING THE CALCULATION SPECIFICATION SHEET 



Figure 53 illustrates entries on the Calcu- 
lation Specification sheet that are used in 
part of a payroll application. The entries 
on the sheet are discussed by line number. 

Note : The blank spaces signify that 
additional calculations have been spec- 
ified, but in this example they have 
been omitted. 



010 



020 



030-050 



Explanation 

The program branches to GRSPAY 
from some other detail calcula- 
tion (not shown in this 
example) . 

The number of hours the employ- 
ee worked are compared with the 
literal 40. If the employee 
worked more than 40 hours, 
indicator 20 is turned on. 

If indicator 20 is on, three 
calculations are performed. 
The literal 40 is subtracted 
from the number of hours worked 
and the overtime hours are 
placed in the field OVERHR, 
which is a three-position field 
with one decimal position. 
RATE is multiplied by OVERHR 
and the result is placed in the 
field SAVE, which is a six- 
position field with two decimal 
positions. SAVE is multiplied 
by the literal 1.5 (which is 
the overtime premium rate) . 
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060 



The result is placed back in 130 
SAVE, and it is half-adjusted. 

RATE is multiplied by 40, and 

the result is stored in GROSS. 

This operation is performed 

whether or not the employee 

worked any overtime. It is not 140 

performed if the employee has 

worked less than 40 hours. 



The contents of HOLD are com- 
pared with the literal 144.00, 
and if HOLD is less than, or 
equal to, 144.00, indicator 21 
is turned on. 



If indicator 21 is on, the 
program branches to the label 
ADFICA. 



070 
080 



GROSS is added to SAVE. 

The program branches to the 
label FICA, if indicator 22 is 
off. 



150 



YDFICA is subtracted from the 
literal 144.00 and the result 
is placed in DFICA. 



090 
100 

110 



120 



Additional calculations. 

The operation code TAG provides 
the label FICA. The RPG 
program branches to this label. 

GROSS is multiplied by the 
literal .03 and the result is 
placed in the field DFICA, 
which is a six-position field 
with two decimal positions. 
The result is half-adjusted. 

DFICA is added to YDFICA and 
the result is placed in the 
field HOLD. 



160 



170 

180 
190 



The operation TAG provides the 
label ADFICA to which the pro- 
gram can branch (either from 
the specification on line 140 
or sequentially from the speci- 
fication on line 180). 

DFICA is added to YDFICA and 
the result is stored in YDFICA. 

Additional calculations. 

The operation code TAG provides 
the label WHTAX to which the 
RPG program can branch. 
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OUTPUT-FORMAT SPECIFICATION SHEET 



Entries on the Output- Format Specification 
sheet specify: 

1. The kind of output that will be pro- 
duced. 

2. The location of the specific data 
fields in the output reports and 
records « 

The specifications for this sheet can be 
divided into two categories as shown in 
Figure 54: file identification and con- 
trol, and field description. 

FILE IDENTIFICATION ; These entries specify 
the output files and the records to be 
written on the file. 

FIELD DESCRIPTION; These entries indicate 
the position of each field in the output 
record. Each field is written on a separ- 
ate line of each sheet, and each field is 
written below its corresponding record 
entry. 



FILE IDENTIFICATION AND CONTROL 



alphabetic character. The file name may be 
alphameric, but it must not contain special 
characters or blanks. 



When writing the output specifications, 
the file name need only be entered once. 
Enter it on the first line to define the 
file as shown in Figure 55. 
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A file name is assigned to each output 
file. The file name must be left- 
justified, and it must begin with an 



Figure 55. Specifying Heading, Detail, and 
Total Lines 
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Figure 54. Output- Format Specification Sheet 
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TYPE H/D/T (COLUMN 15) 



The entry in this column identifies the 
type of record being specified. The fol- 
lowing three entries are used for this 
specification: 

H Heading Record 

D Detail Record 

T Total Record 

All heading records for the file must be 
entered first, followed by all detail 
records, and then by all total records (see 
Figure 55, column 15). 



r n 

I IBM 2540 | 
j Pocket Code | 
j. .j 

j Normal | 1 j 
| 4 | 4 or blank | 
| 8 | 8 | 

L . J. J 



Note : When punched output is speci- 
fied, the last card will not be put out 
automatically. 

For information concerning the stacker 
selection of combined files, refer to the 
section Combined Files Stacker Select. 



HEADING RECORDS: These records usually 
contain constant information. However, 
they also contain information from input 
records, including the record present at 
the time the output record is produced. 



DETAIL RECORDS: These records have a 
direct relationship to the input record. 
Most data in a detail record comes from the 
input record or from calculations performed 
at detail time. 



SPACE (COLUMNS 17-18) 



This specification (and the next specifi- 
cation Skip, columns 19-22) is used to 
provide the proper spacing of printed 
reports. 

Note: If the record is to be printed, 
at least one entry is required in 
columns 17-22. 



TOTAL RECORDS: Operations upon fields from Spac e Before (Column 17) 
the input record are preceded by the test 
for control-field changes, the performance 
of total- time calculations, and the forma- 
tion of total records. Thus, data from an 
input record that causes a control-field 
change cannot contribute data to total 
records that result from that control 
change. But heading and detail records can 
contain data from the input record. 



Enter in this column the number of lines to 
be spaced before the line is printed. 
Specify zero, one, two, or three spaces 
before printing by placing the entry 0, 1, 
2, or 3 in column 17. 



Space After (Column 18) 



STACKER SELECT (COLUMN 16) 



If punched output occurs in the object 
program, a stacker number is entered in 
this column. The cards fall in the stacker 
that is indicated by this column. The 
stacker pockets and their acceptable codes 
are listed below: 



IBM 1442 



| Pocket 



Code 



1 | 1 or blank | 

2 | 2 | 



Specify zero, one, two, or three spaces 
after printing by placing the entry 0, 1, 
2, or 3 in column 18. Enter a zero in this 
column to specify no space after printing. 



SKIP (COLUMNS 19-22) 



This specification provides for the proper 
spacing of reports. It is directly related 
to the function of the printer carriage- 
control tape. 

Skip Before (Columns 19-20) . The 
entries 01-12 cause the printer carriage to 
skip to channels 1 through 12 of the car- 
riage tape be fore the line is printed. 
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Skip After (Columns 21-22) . The entries 
01-12 cause the printer carriage to skip to 
channels 1 through 12 of the carriage tape 
after the line is printed. In Figure 55, 
before the heading line is written, the 
form skips to channel 1. 

Note ; The order in which spacing and 
skipping is performed is as follows: 

Skip Before 

Space Before 7 

Skip After 

Space After 

If both Space Afte r and Skip After are 
specified, only Ski p After is per- 
formed.. 



Overflow Indicator' 



Carriage overflow, causes the setting of 
the indicator as specified by the user in 
the file-description specifications 
(Columns 33-34). 

When a punch in channel 12 of the con- 
trol tape is sensed the overflow indicator 
is turned on. It remains on for one com- 
plete processing cycle; it turns off after 
the heading and detail lines of the next 
record are printed. Because the overflow 
indicator is on during calculations, it can 
control calculation specifications. 

A test for the overflow status is made 
by the object program immediately before 
each line of the report is printed (but 
after any Space B€?fore specifications are 
executed) . Two conditions can occur at 
this time: 

1. If the overflow indicator is on before 
a detail line is printed, the detail 
line, and any other detail lines whose 
output indicators are on, are printed. 



Any Space After specifications are 
executed, the next record is read, and 
a test is made to determine if a con- 
trol break has occurred. If one has 
occurred, all total lines (caused by 
the control break) are printed, and 
then any overflow printing specified is 
performed. 

2. If the overflow indicator is on before 
a total line is printed, all total 
lines, whose output indicators are on, 
are printed, and this is followed by 
any specified overflow printing. 



Automatic Skipping 



If an overflow indicator is not specified 
on the File Description Specification sheet 
for a file (and the Skip or Space columns 
on the Output-Format Specification sheet 
contain an entry) the RPG program provides 
automatic skipping from channel 12 to chan- 
nel 1 for the object program. 

If an overflow indicator is specified on 
the File Description Specification sheet 
for a file, and none of the records of the 
file are conditioned by overflow on the 
Output-Format Specification sheet, automat- 
ic skipping will also occur. 



Printing Lines Conditioned by Overflow 



If an output heading line is coded as in 
the upper half of Figure 56, the heading 
line will print whenever the OF or LI indi- 
cator is on. If LI and OF occur at the 
same time during processing, the line 
prints twice, thus possibly providing an 
error in the printed report. To prevent 
this situation the line is coded as shown 
in the lower half of Figure 56. By making 
the condition mutually exclusive, the line 
is not printed twice. 
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• Figure 56. Specifying Output Indicators 



The order in which the object program 
prints lines conditioned by overflow fol- 
lows : 



When overflow occurs during the print- 
ing of a heading or detail line, the 
object program does not immediately 
print lines conditioned by overflow. 
The program does, however, take note 
that the overflow condition has 
occurred. 



All total calculations are executed at 
this time, including the total calcula- 
tions conditioned on overflow. 



Multiple Printers 



With this program, it is possible to use a 
maximum of three output printer files for 
each RPG object program. When producing 
records for more than one printer, the user 
specifies a unique overflow indicator for 
each printer. 

In columns 33-34 of the File Description 
Specification sheet, one of three available 
overflow indicators is entered. The line 
on the File Description Specification sheet 
which is used to define the output printer 
file may contain one of these indicators in 
columns 33-34: OA., OF, or OV. 



Total lines not conditioned by overflow 
are printed. 

The object program then tests to see if 
overflow has occurred. 

Total lines conditioned by overflow are 
printed. 

Heading and detail lines conditioned by 
overflow are printed. 

All detail calculations are executed at 
this time, including the detail calcu- 
lations conditioned on overflow (see 
Figure 26) . 

Note ; If an overflow condition has 
been specified, automatic skipping is 
not performed. 



OUTPUT INDICATORS (COLUMNS 23-31) 



This specification may be used for either 
file identif ication (in this case, at least 
one output indicator must be specified) or 
field descri ption . Entries in this column 
may specify a maximum of three indicators. 
These indicators control: 

1. When the line is to become output, or 

2. When a particular field is to be writ- 
ten. 

The following information applies only 
to its use in the file identification line. 
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If more than one indicator is specified 
on one line, all indicators are considered 
in and AND relationship. That is, all 
conditions specified must be satisfied 
before the output condition can be execut- 
ed. 

If the object program requires that more 
than three indicators be in and AND rela- 
tionship, the letters AND are entered in 
columns 14-16 of the following line, and 
the additional indicators are specified on 
that line- If one of the indicators is an 
overflow indicator <0A, OF, or OV) , it must 
not appear on the same line as the AND. 

If the output condition is executed in 
an OR- relationship (one or the other of two 
sets of conditions) the letters OR are 
entered in columns 14-15 of the following 
specification line, and the OR indicators 
are specified on that line. 

Additional specification lines can spec- 
ify as many output indicators in either an 
AND or OR relationship as required by the 
object program. Each additional line must 
begin with AND or OR in column 14. 



the Input Specification sheet or 
columns 54-59 of the Calculation Speci- 
fication sheet). 



2. Special indicators (LR, HI, MR, etc) 



3. Field indicators (columns 65-70 of the 
Input Specification sheet) . 



Note ; When an output record is not 
conditioned by any resulting indica- 
tors, the record is conditioned 00. 



NOT (COLUMNS 23, 26, AND/OR 29) 



If any of the output indicators must be 
off, enter an N in column 23, 26, or 29 
(whichever is appropriate) . 



Permitted Entries for output Indicators f 
Columns 24-25. 27-28. and/or 30-31 



EXAMPLES OF OUTPUT INDICATORS 



Enter in these columns : 

1. Resulting indicators (Columns 19-20 of 



Figure 57 shows six examples of output 
indicators used with the output file. The 
numbers to the right refer to the following 
discussion: 
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• Figure 57. Specifying Output Indicators 



The control carriage is skipped to 6. 
channel 02 before printing, and the 
heading line is printed only when an 
overflow condition occurs or when the 
IP (first page) indicator is on. 



The detail line is printed only if 
indicator 14 is on, and indicators 26, 
28, and 30 are off. Indicators 26, 28, 
and 30 could be field indicators from 
the input specifications, or they could 
be resulting indicators from the calcu- 
lation specifications. 

The detail line is printed if indicator 
40 or 46 is on. 



A summary card punched at the level- 2 
control time is selected into stacker 2 
of an IBM 1442 Card Read-Punch. 



This concludes the description of the 
file-identification specifications. The 
remaining descriptions of the output form 
are concerned with the field-description 
section. 



FIELD DESCRIPTION 



The total line is printed and the con- 
trol carriage is skipped to channel 2 
before printing only if the level- 2 
indicator is on, and the MR indicator 
is off, and H2 is off. The specifi- 
cation NH2 prevents the object program 
from printing a line if an error condi- 
tion has occurred. The program does 
not stop until after all processing for 2. 
the record has been completed. This 
feature enables the programmer to pre- 
vent the printing of erroneous data. 

The summary record is printed at the 
level- 2 control time, but the MR 
(matching records) indicator must also 
be on. 



These entries include specifications about: 

1. The control of the individual fields of 
a record, and 



The output format of individual fields 
of a record. The fields of the record 
are written on the lines below their 
corresponding file entries. Each field 
is described on a separate line, and no 
entries are permitted in columns 7-22 
of a field-description line. 
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OUTPUT INDICATORS (COLUMNS 23-31) 



The same types of indicators used for file 
identification can be used for field des- 
cription. The maximum number of indicators 
that can be considered in an AND relation- 
ship is three; all must be specified on one 
field-description line. 

Figure 5 8 shows four sets of indicators 
used as output indicators for field- 
description lines. The numbers to the 



right of the figure correspond to the 
following list. 

1. Four fields are printed from a detail 
record identified by indicator 
44: invoice, amount, customer, and 
salesman. The entry LI causes the 
field, SALESM, to be printed only for 
the first detail record of each control 
group. (Remember that a control level 
indicator remains on during the follow- 
ing detail calculation and print 
cycle. ) 
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Figure 58. Specifying Field Names 
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In this example, the salesman field 
is group indicated . 

The second example illustrates how to 
prevent the printing of just one field 
of a record. The field AMOUNT is 
printed only if indicator 16 is off. 
This indicator might be a resulting 
indicator used to determine if the 
calculated field AMOUNT is zero. 



zero suppressed, or the zone of the field 
has been blanked out on the Calculation 
Specification sheet by a numeric literal. 

Examples of field names are given in 
Figure 58. 



ZERO SUPPRESS (COLUMN 38) 



This example selectively prints the 
field headings for an invoice form. 
This specification prints all the head- 
ing information on the first form, but 
if the information for one customer 
order continues on two or more forms, 
only the customer and invoice fields on 
succeeding forms are printed. 

Printing of the entire line is con- 
trolled by indicators 04 or OF. In the 
field-description specifications, the 
OF indicator is also used to prevent 
printing of fields ORDER, DATE, and 
SALESM when an overflow condition 
occurs. 

The last example illustrates how a 
field can be controlled for printing by 
an AND relationship and an OR relation- 
ship. 

The field DIVSON is controlled by 
three AND indicators: 16, NH2, and 
NL3. The field AMOUNT is controlled by 
two OR conditions. In the field des- 
cription line, the OR relationship is 
used by writing the field name twice 
and specifying each appropriate OR 
indicator. The letters OR cannot be 
specified in columns 14-15 of a field- 
description line. 



FIELD NAME (COLUMNS 32-37) 



This specification identifies each field of 
the record to be written. The fields may 
be listed on the form in any sequence. The 
order in which they appear in the output 
record is determined by the entry in 
columns 4 0-43. 



An entry of Z in this column causes zero- 
suppression of the field in the output 
record. Zero- suppress ion means that the 
zeros to the left of the significant digits 
in the field are not written on the output 
file. Fields to be zero suppressed must be 
specified as numeric. 

An entry of Z_ in this column also 
provides another function. Zone bits in 
the units position of a field are removed 
in the output record before the field is 
written. 

If an edit-control word is specified for 
the field, this column must be blank. 



BLANK AFTER (COLUMN 39) 



If a B is entered in this column, the out- 
put field will be reset to blanks or zeros 
after the field is moved to the output 
area. Alphameric fields are set to blanks, 
and numeric fields are set to zeros. 

This specification has an additional 
feature. It allows the programmer to pro- 
vide for resetting field indicators or 
resulting indicators that test for blanks 
or zero. If the output field being reset 
by the blank-after specification, is also 
being tested for zero or blank on the input 
specifications, or for zero on the calcula- 
tion specifications, the corresponding 
indicator is turned on after the output 
field is reset. If multiple Zero or Blank 
indicators are specified for the same field 
name, only the last indicator specified 
will be turned on by the Bl ank After speci- 
fication. 



Enter in columns 32-37 the name of the 
field that is defined on the line. The 
field name must have been previously 
defined on either the input or calculation 
sheet. If a constant is to be written, it 
is specified in Constant or Edit Word 
(columns 45-70), and F ield Name is left 
blank. 

If the value of the field is numeric, 
the sign of the field will appear in the 
units position unless the field is edited, 



END POSITION IN OUTPUT RECORD (COLUMNS 
40-43) 



This specification indicates the exact 
location of the field in the output record. 
In columns 40-43, enter only the position 
in the output record where the rightmost 
(low-order) character of the field is to be 
located. 
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• Figure 59. Positions in Output Record 



Assume that a ten-position amount field 
is to be printed in print positions 21 
through 30. The entry in columns 42-43 
would be 30. Columns 40-41 are left blank, 
because the leading zeros may be omitted. 



bered consecutively in print- posit ions 97 
to 100. The number is always four posi- 
tions long. However, zero suppression can 
be performed. The page number is increased 
by one before it is printed. 



PACKED OUTPUT (COLUMN 44) 



Enter a P in this column if the output 
field is to> appear in the packed decimal 
format. Otherwise, leave this column 
blank. If the output is to be printed, 
leave this column blank. 



Page Numbering 



Page numbering is another feature of RPG. 
By placing the word PAGE in columns 32-37 
(Field Name) of the output specifications, 
automatic page numbering will be obtained. 
The page entry in Field Name of Figure 59 
causes each page of the output to be num- 



Page numbering normally begins with the 
number 1, but page numbering can be started 
with any number by preparing a record-type 
that contains the starting page, less 1. 



xn this case the record must be defined 
on the Input Specification sheet with a 
field labeled PAGE (n) . (The (n) following 
page is explained in the section Page Num- 
bering for Multiple Printers.) Figure 60 
shows an example of this specification. In 
this example the page is initialized from 
sequence AA of the input sheet. It must be 
numeric (entry in column 52 of the Input 
Specification sheet). On the output sheet 
it is defined as a separate field that will 
print in position 100, If the page number- 
ing were to begin with the number 500, 4 99 
would be punched in columns 1-4 of the 
input record that contains the character P 
in column 80. 
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• Figure 60. Page Numbering 



A page number can be reset and a new 
series of page numbers may be started dur- 
ing the processing of the object program. 
When PAGE appears in the field name of the 
Output-Format Specification sheets, the 
output indicators are used to reset the 
page to number 1. In this case, the indi- 
cator must be placed in Output Indicator s 
on the same line as the field name specifi- 
cation PAGE (see the L3 indicator in Figure 
59). 



CONSTANT OR EDIT WORD (COLUMNS 45-70) 



Columns 45-70 provide the ability: 

1. To include constants in output records, 
and 

2. To permit editing of numeric fields. 



PAGE NUMBERING FOR MULTIPLE PRINTERS 



Constants 



The individual printer files can initialize 
page numbering. Special Page entries 
(PAGE, PAGE1, and PAGE2) can be initialized 
to any count in the same manner as des- 
cribed for PAGE. 



A literal of up to twenty-four alphameric 
characters may be placed in columns 45-70. 
The literal must begin in column 45, and it 
must be enclosed by a set of single quota- 
tion signs even if it contains only numeric 
characters. The literal beginning in 
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column 45 will be placed on the output 
record as defined in End Position in Output 
Record, columns 40-43. 



Rules for Forming Alphameric Literals in 
an Output Record t 



|bbb, bbO.bb&CR 



Body 



Status 



1. Any character in the character set may 
be used in an alphameric literal. 
Blanks are treated as valid characters. 



Figure 62. Two Parts of an Edit 

Word: Body and Status 



Alphameric literals must be enclosed in 
a set of single-quote symbols. A sin- 
gle quote symbol may be contained with- 
in a literal by entering an additional 
single quote symbol within the literal. 
For example, the literal 5 o'clock 
would be entered as '5 o" clock 1 in 
columns 45-56 of the Output-Format 
Specification sheet. 



Field Name (Columns 32-37) must be left 
blank when an alphameric literal is 
defined on the line. 



The body of the edit word is the portion 
beginning with the leftmost blank, zero, or 
asterisk, and continuing to the right to 
the character that governs the transfer of 
the units position of the data field. 

The status of the edit word is the por- 
tion continuing to the right from the body 
to the CR (credit), or - (minus) if pre- 
sent. 

Rules for Forming a n Edit Wor d : 

1. An edit word must be enclosed in a set 
of single-quote symbols. 

2. A blank in the edit word is replaced 
with the character from the correspond- 
ing position of the data field speci- 
fied in Field Name. 



Edit Words 



An edit word provides for the punctuation 

of amount fields, including the printing of 

dollar signs, commas, periods, and sign 

status. An edit operation is shown in 

Figure 61. 

IN STORAGE 



b ■ b , b , , i b . b , , . | b , b, , & t C , R 



t D ! u | u , , , u , u , w , 



I "I °M ^ I-" I I 



0,0,3,6,7,9,6,4, ■*- 



■Edit Word 



'Unedited Data 



■ Edited Data 



IN OUTPUT RECORD 
■ . i 3 , , , 6 , 7 , 9 , . , 6 , 4 , ,__, L 

Figure 61. Edit Operation 



When an amount field is to be edited, 
its edit word is placed in columns 45-70 of 
the line which specifies the field. An 
edit word consists of two parts (the body 
and the status) as shown in Figure 62. 



3. An ampersand causes a space in the 
edited field. 

4. A zero is used for zero-suppression. 
It is put in the rightmost position 
where zero suppression is to stop. It 
is replaced with the character from the 
corresponding position of the data 
field, unless that character is a zero. 
Column 38 (zero-suppression) must be 
left blank. 

5. An asterisk in the body of the control 
word is used for asterisk protection 
and zero suppression. It is put in the 
rightmost position where zero suppres- 
sion is to stop. It is replaced with 
the character from the corresponding 
position of the data field unless that 
character is a zero. Each zero that is 
suppressed is replaced by an asterisk. 

6. A dollar sign in the body of the edit 
word written immediately to the left of 
the zero-suppression code (0) causes 
the insertion of a dollar sign in the 
position to the left of the first sig- 
nificant digit. This is called the 
fl o ating dolla r sign. A dollar sign 
that is entered immediately after the 
initial single-quote mark will be 
fixed. That is, it will be printed in 
the same location each time. This is 
called the fixed dollar sign . 
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Figure 63. Using Constants, Edit Words, and Zero Suppression 



7. The decimal and commas are printed in 
the edited output field in the same 
relative positions they were written in 
the edit word unless they are to the 
left of significant digits. In that 
case, they are blanked out or replaced 
by an asterisk. 

8. All other characters used in the body 
of the edit word are printed if they 
are to the right of significant digits 
in the data field. If they are to the 
left of high-order significant digits 
in the data word, they are blanked out, 
or if asterisk protection is used, they 
are replaced by an asterisk. 

9. The letters CR or the minus symbol in 
the status portion of the edit word are 
undisturbed if the sign in the data 
field is minus. If the sign is plus, 
or if the value of the field is minus 
zero, they are blanked out. 

10. Asterisks to the right of the status 
portion of the edit word are undis- 
turbed. They are normally used to 
indicate a specific class of total. 

Figure 63 illustrates the use of con- 
stants and edit words. The numbers to the 
left correspond to the following list: 

1. The constant 26.75 is in the output 



5. 



6. 



7. 



record ending in position 96. The 
fie Id- name specification must be blank. 

The constant DEPARTMENT TOTAL is con- 
tained in the output record ending in 
position 96. The field name must be 
blank. 

This example illustrates zero- 
suppression to the left of significant 
digits. The letters CR are written 
because the amount field might be 
minus. 

In this example, the floating dollar- 
sign protection enters the $ to the 
left of the first significant digit. 

Asterisk protection enters as many 
asterisks to the left of the first 
significant digit as required to fill 
out the number of positions specified 
in the edit word. 

DEPT is a numeric field for which no 
editing or zero suppression is 
specified. The output field will con- 
tain a zone in the units position. 

An edit word containing blanks only 
will suppress all high-order zeros in 
the output field. 



8. The edit word has been specified as one 
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digit longer than DEPT, with a zero in STERLING (COLUMNS 71-74). 

the high-order position. This allows 

all zeros in DEPT to print, but the 

zone of the units position has been Enter in these columns the position in the 

stripped. record that will contain the sign of the 

sterling field. Leading zeros may be omit- 
ted. Enter an S in column 74 if the sign 
9. This line notes the use of zero is in the normal position. If the Sterling 

suppression. The output field will specification is not required, leave this 
contain no high-order zeros as in line column blank. Additional information on 
7. Sterling is in Appendi x C; Sterling Rou- 

tines for the Report Program Generator . 
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FILE DESCRIPTION SPECIFICATION SHEET 



This sheet provides information to RPG 
about: 

1. The input files, defined on the Input 
Specification sheet, from which the 
object program will obtain data 
records. A maximum of three input 
files may be specified, (excluding RAF 
files, table files, and chaining 
files). 

2. The input files used by the object 
program, such as record address files, 
and table files. 

3. The output files are defined on the 
Output-Format Specification sheet on 
which the object program will write 
data records. Each file used by the 
object program will be defined. Each 
line of the File Description Specifi- 
cation sheet is used to define one 
file. 



on the Output-Format Specification sheet 
(for output data fMes), or on the File 
Extension Specification sheet. 



Note: The filename may be e 
acters long but RPG will uti 
the first seven characters f 
files except Indexed-Sequent 
For Indexed-Sequential files 
first five characters of the 
will be utilized in the RPG 
Thprpforp, it is important t 



ight char- 

lize only 

or all 

ial files, 
only the 
filename 

Program. 

hat the. 




FILE TYPE (COLUMN 15) 



MAXIMUM NUMBER OF FILES AVAILABLE 



An entry in this column specifies the type 
of file defined on the line of the sheet. 
The following entries are allowed in this 
column: 



The maximum number of files that can be 
used in the program is 10. The following 
list defines the maximum number of files 
for the various types of files that can be 
used. Any combination of these, up to 10, 
is permitted. 



Type of File 



Pr imar y 

Secondary 

RAF 

Chained 

Table 

Output 

Printer 

Other Output Units 



Maximum 
Number 



2^ 



Type of 
Entr y _File 

I Input 



Output 
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FILE NAME (COLUMNS 7- 14) 



Each file used in the program is identified 
by writing the name of the file in columns 
7-14. File names must be alphameric and 
left- justified (the file name must begin in 
column 7). The file name entered in these 
columns must also be entered on the Input 
Specification sheet (for input data files), 



Explanation 

Identifies the file as an 
input file (it may be a 
record-address file, table 
file, or a file containing 
input data records). 



Identifies the file as an 
output file (it may be an 
updated table file to be 
written out). Column 39 
must be left blank. 
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U Update 



Combine 




Identifies t he fllfL ~aa*.an 
update file gDASD only] 
An update file is ooth* an 
input and an output file. 
The file is an update file 
if the object program 
alters the data in one or 
more fields of each record 
contained in the file with- 
out changing: 

1. The nature of the data, 

2. The length of the field 
in which the data is 
found, or 

3. The location of the 
field. 

A chained file may be 
updated at detail time or 
at total time. All other 
DASD files can only be 
updated at detail time. / 



Identifies the filer's a • Figure 64. 

ombined file. A combined 
file is a card file con- 
taining cards read into the 
system and cards used for 
punching. It must reside 
on an\BM/l442 Card Read- 
Punch, \i an IBM 2540 Card 



for punching output data; therefore it 
is specified with file-type C. 
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Specifying File Name and File 
Type 



FILE DESIGNATION (COLUMN 16) 



Read- Puncti equipped with 
the Bunch-Feed-Read Special 
Feature. Reading and then 
punching into the. same file 
£3 accomplished in two 
different ways: 

1. Punching\ into th© same 
card that is read. 

2. Punching in^° a blank 
trailer carcl in the 

same file. \ 

/ \ 

A combined file, differs 
from an update file because 
in the update file the 
input fields are revised or 
updated. 

Figure 64 illustrates two examples of 
File Name and File Type specifications. 

1. Detail cards are read into the system 
in one file, summary cards are punched 
into a separate file (which, in this 
example*, might be the punch feed of an 
IBM 254 and might contain blank cards 
only) , and the printed report is in a 
third file. 

2, There tire two input files in this 
example. The second file (INPUTSEC) 
also contains cards that will be used 



Column 16 designates the type of input file 
being defined on this line of the File 
Description Specification sheet. The five 
entries permitted in this column are listed 
here. Detailed explanations of chained 
files, table files, record address files, 
primary files, and secondary files may be 
found in the sections Using Tables and Exit 
Routin e s in t he Ob ject Progr a m and Process- 
ing Mu l tiple Input File s . 

If the file is an output file, leave 
this column blank. An entry must be made 
if the file is an input, update, or com- 
bined file. Enter in column 16 the follow- 
ing codes: 

Entry Explanation 



j i Only one primary 
\s \ defined.,;/ , J%2*rl 



The file defined is a primary file. 

fJLlfi_may- be ,, 

The file defined is a secondary 
file. 

The file defined is a Record 
Address File which relates to a 
direct access storage file. 

The file defined is a chained file 
(as defined under Chaining ) . 

The file defined is a table file. 
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END OF FILE (COLUMN 17) 




BLOCK LENGTH (COLUMNS 20-23) 



Enter an E in column 17 if the input file 
is a sequential file and it is to be 
checked for an end-of-file condition. For 
one input file, the E entry will cause the 
LR (last record) indicator to turn on when 
the last record of the file has been proc- 
essed. 

For multiple input files, the end-of-job 
condition (LR) will occur when all the 
input files (defined on this sheet with an 
E in column 17) have reached the end-of- 
file. 

If this column is left blank for all 
input files, the end-of-job condition 
occurs when all input files have been proc- 
essed. 



SEQUENCE (COLUMN 18) 



This entry is normally made if there is 
more than one input file, and the matching- 
fields specification (columns 61-62 of the 
Input Specification sheet) is used. An 
entry in this column indicates whether the 
matching fields are in ascending or 
descending sequence. 

Enter an A in column 18 if the matching 
fields are in ascending order, or a D if 
the matching fields are in descending 
order. 



This specification is used to indicate the 
block length of the input or output 
records. If the input records are 
unblocked, enter the length of the largest 
record in columns 20-23. If the input 
record is blocked, enter the size of the 
largest block. The block length may be 
from 18 to 4096. Leading zeros may be 
omitted. 



RECORD LENGTH (COLUMNS 24-27) 



This specification is used to enter the 
length of the logical records contained in 
the file. If the file contains records 
that are variable in length, enter the 
length of the largest record. (The entry 
must be right- justified. ) 

Note_l: If the block length equals the 
record length, RPG will consider the 
file to have unblocked records for both 
fixed-length and variable-length 
records. 

Note_2: If the block length is greater 
than the record length, RPG will con- 
sider the file to have blocked records 
for both fixed-length and variable- 
length records. 



Sequence-Checking of Input Files 



If there is only one input file or a chain- 
ing file in the program, this specification 
may be used to sequence-check fields of the 
file to ensure that the file is in 
sequence. By entering the codes (Ml, M2 , 
and M3) in columns 61-62 of the Input 
Specification sheet, sequence-checking with 
respect to these fields occurs. In column 
18 either A or D must be entered to specify 
whether the file is ascending or descend- 
ing. 



MODE OF FILE PROCESSING (COLUMN 

28) : DIRECT ACCESS STORAGE DEVICE (DASD) 



This column is used to indicate the method 
or mode by which the file is processed. 
Acceptable entries are listed here. 

Entry Explanation 

L Enter an L in this column, if a 
segment of the file is to be 
processed. The upper and lower 
limits of the file (to be 
processed) will be supplied, in 
this case, by a Record Address File 
(RAF). The RAF will be supplied by 
the user. 



FILE FORMAT (COLUMN 19) 



This column is used to indicate the format 
of the input or the output records. Enter 
an F in this column if the records are 
fixed- length. Enter a V in this column if 
the records are variable in length. For 
more information, see the Variable- Lengt h 
Records section. 



R Enter an R in this column, if the 
user's records are to be processed 
randomly. In this case, the 
records to be processed will be 
obtained by a record-address file 
or a chaining file. 

Blank If no entry is made in this column 
for the file, the entire file will 
be processed sequentially. 
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LENGTH OF RECORD ADDRESS FIELD (COLUMNS 
2§-30)J RECORD ADDRESS FILE (RAF) ONLY 



If the file defined on this line is a 
record-address file, enter the number of 
positions that each entry in the RAF occu- 
pies. 



Sort/Merge Program (8K Disk) , Form 
C24-3321, for an explanation of the ADDROUT 
option. ) An example of using this option 
is contained in the section of this manual 
entitled Using the ADDROUT Option . 



TYPE OF RECORD ADDRESS (COLUMN 31) : 
OR RAF FILE ONLY) 



(DASD 



If the records from a DASD file are to be 
retrieved by using record keys, enter a K 
in this column. The K indicates that the 
file defined on this line will be processed 
by use of the record key. If the records 
are to be retrieved by the record identifi- 
cation, enter an I in this column. If the 
file specified on this line is a RAF file, 
a K or an I must be entered in column 31. 
Otherwise, leave the column blank. 



TYPE OF FILE ORGANIZATION (COLUMN 
32) : (DASD ONLY) 



Leave this column blank if the file is 
organized sequentially, or if it is an 
output file. Enter an I if the file has an 
indexed-sequential organization. Enter a D 
in this column if the file has direct 
organization. 

Enter a T in this column, if the file is 
the output from the ADDROUT (Address 
Output) option of the disk sort program. 
(See IBM Basic Operating System/360, 



RULES FOR SPECIFYING MODE OF FILE 
PROCESSING, TYPE OF RECORD ADDRESS, AND 
TYPE OF FILE ORGANIZATION 



1. If a direct access storage device is 
not used in the system, columns 28, 31, 
and 32 are left blank. 

2. If the type of file organization is 
Sequential, then columns 28, 31, and 32 
are again left blank. 

3. If the type of file organization is 
Indexed-Sequential (I in column 32), 
column 31 must contain a K and column 
28 can be either L, R, or blank. 

Hm If the type of file organization is 

Direct (D in column 32), then column 31 
can contain either a K or I, and column 
28 can only contain an R. 

Note : If column 32 contains D and 
column 31 contains K, multiple tracks 
will be searched by the RPG object 
program. 

Figure 65 illustrates the code combina- 
tions possible for these three specifi- 
cations. 



Type of File Organization 
(Col. 32) 


Type of Record Addresses 
(Col. 31) 


Mode of Processing 
(Col . 28) 


Sequential * (blank) 


Not applicable 


(blank) 


The entire file between limits will be processed. (blank) 


Indexed - Sequential (1) 


Record Key 


(K) 


(The entire file will be processed). (blank) 


A segment of the file will be processed. (L) 
The limits to be processed are supplied by a 
Record Address File (RAF). 


The records will be processed randomly. (R) 
The addresses are supplied: (a) by a RAF file, or 
(b) by the data contained in the chaining field of an 
input record. 


Direct (D) 
(Random) 


Track Address with Record Key, 
Track Address with Record 
Identification 


or (K) 

(1) 


The records will be processed randomly. (R) 
Conversion is required. The addresses to be converted 
are supplied by a RAF file or by a chaining field. 



*Entries in parenthesis indicate actual specifications to be used. 

Figure 65. Processing Direct Access Storage Files 
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OVERFLOW INDICATOR (COLUMNS 33-34) 



SYMBOLIC DEVICE (COLUMNS 47-52) 




If the file defined on the line is a prin- 
ter file and overflow indicators are used, 
enter the overflow indicator associated 
with the file. A maximum of three overflow 
indicators is allowed. The following are 
permissible overflow indicators: 



1. OA 

2. OF 

3. OV 



KEY FIELD STARTING LOCATION (COLUMNS 35-38) 



Enter in these columns the starting loca- 
tion within the record of the field speci- 
fied as the Key Field. (Leading zeros may 
be omitted. ) This entry is used only if 
the records are blocked records for an 
Indexed-Sequential file. 



E (COLUMN 39) 



If the file defined on the line is a chain- 
ing file, a table file, or a record-address 
file, enter E in column 39. The E indi- 
cates that additional information about the 
file will be coded on the File Extension 
Specification sheet. I f the file is 
defined as an output fiTe (o in coJ jjftnjyL)_» 
€nTS uulunui i 3~~Teft blank. 



If the file defined on this line is an 
input or an output file, enter the symbolic 
name of the unit. (For example: SYSIPT in 
47-52). 

Valid entries in these columns are the 
following: 



T 



Entry | 
~— +- 

SYSRDR 

SYSLST 

SYSIPT 

SYSOPT 



SYS001 
SYS254 



Examples 

Card input. 

Printer. 

Card or tape input. 

Card, disk, tape, or prin- 
ter output. 

Any input or output unit. 



L J. J 

Note 1 : Input units containing files 
organized in indexed-sequential or 
random organization must be assigned 
Symbolic Device codes of SYS001-SYS254. 

Note 2 : If the logical file extends 
over more than one physical unit, the 
device codes must be adjoining. For 
example, if a logical file is contained 
in three IBM 2311' s the device codes 
could be SYS019, SYS020, SYS021. 



LABEL (COLUMN 53) 



0- 



DEVICE (COLUMNS 40-46) 



Enter in these columns the input or output 
unit associated with the file. If the 
output file is a printer, enter PRINTER in 
columns 40-46. If the file is an input or 
output file and it is associated with a 
Card Reader or Card Punch unit, enter one 
of the following: 



"^ 



READ42 for the IBM 1442 



READ40 for the IBM 2540 



If the file is an input or output file 
and it is associated with a tape unit, 
enter TAPE in these columns. If the file 
is associated with a Direct Access Storage 
Device (DASD) , enter DISK11 in columns 
40-4 6. The entry must be left- justified. 
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PRINTS 



The entries for this specification are: 
Blank = No labels exist for the file. 

1. The RPG processor processes no 
labels and makes the first 
data record available. 

2. RPG writes the first record. 

N = The file has nonstandard labels. 

1. For both input and output 
files, RPG always provides for 
an exit to a user's subrou- 
tine. 

2. The user must provide for the 
checking of header and trailer 
labels. 



Ttie file has standard labels only. EXTENT EXIT FOR DAM (COLUMNS 60-65) 



/ 



An exit is not given for eith- 
er an input or output file. 

User standard labels will be 
bypassed. 



E =\ .The file has standard labels and 
/user standard labels. 

i. For both input and output 
\ files RP6 provides for an exit 
\ to a user subroutine in which 
\ user standard labels are proc- 
essed. 



In IBM Basic Operating System RPG (8K), 
these columns are not used. 



COLUMNS 66-74 



Leave columns 66-74 blank, unless comments 
are entered in these columns. 



ENTRIES ON THE FILE DESCRIPTION 
SPECIFICATION SHEET 



NAME OF LABEL EXIT (COLUMNS 54-59) 



Enter in these columns the name of the 
external routine which will process non- 
standard or user-standard labels. The name 
must consist of alphameric characters and 
cannot exceed six characters in length. 
(This entry is required only if column 53 
contains N or E. ) 

Note : The register conventions for 
exit to a user routine for label check- 
ing are the same as those specified in 
the section Use of Registers with one 
exception. Register 8 is used as the 
base register, and not register 15. 



Figure 66 shows several examples of entries 
on the File Description Specification 
sheet. The numbers to the right correspond 
to the explanation that follows. 

1. The P in column 16 indicates the input 
file INPUT is the primary file. The E 
in column 17 indicates that the end-of- 
job condition will occur when this file 
is depleted. The file is ascending (A 
in column 18). The block length is 80, 
and each record is 80 characters long. 
The E in column 39 indicates that the 
file will be referenced on the File 
Extension Specification sheet. This 
file is read in on an IBM 14 42 Card 
Read- Punch. The Device code is READ42, 
and the Symbolic Device code is SYSRDR. 
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Device 

40 41 42 43 44 45 46 


Symbolic 
Device 

47 48 49 50 51 52 


Name of 
Label Exit 
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Extent Exit 
for DAM 
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2. The record-address file defined on this 
line has a fixed format (column 19). 

It has a block length of 80. Each 
record is 80 characters long and the 
length of each record-address field is 
8. The E in column 3 9 indicates that 
the File Extension Specification sheet 
will be used. The record address file 
is read into the program by an IBM 2540 
Card Read-Punch. The Device code is 
READ4 and the Symbolic Device code is 
SYS001. 

3. The third file defined on this sheet is 
a table file. The T in column 16 
indicates that it is a table file. It 
has a fixed format, a block length of 
200, and a record length of 100. 
Column 39 (E) indicates that it will be 
used on the File Extension Specifi- 
cation sheet. The file is read in on 
magnetic tape, therefore the Device 
code is TAPE, and the Symbolic Device 
code is SYS006. The N in column 5 3 
indicates that there are nonstandard 
labels on the tape. This means that 
the nonstandard labels will be proc- 
essed by the user's subroutine LABEXT 
(as specified in columns 54-59). 

4. MASTCUST is an input file that will be 
processed under the control of another 
file. It is a chained file (C in 
column 16) . It will be processed ran- 
domly (R in column 28). The record 
addresses that will be referenced by 
the chaining file are record keys (K in 
column 31) , and the file is organized 
indexed-sequentially (I in column 32). 
This file is located on a direct access 
storage device and is given the Device 



code of DISK11 and the Symbolic Device 
code of SYS 008. The S in column 53 
indicates that there are standard 
labels on the disk. 

The update file DISKUPDT (U in column 
15) will be used for input, and it will 
be updated after processing of each 
record has been completed. It is an 
indexed-sequential file, and it will be 
processed randomly. The C in column 16 
indicates that the file is a chained 
file. In this example, the maximum 
record length is 200 with a maximum 
block length of 400. This file is 
located on a direct access storage 
device and is given the Device code of 
DISK11 and the Symbolic Device code of 
SYS012. The key field starting loca- 
tion (columns 37-38) is position 15 
within the data record. 

The file CARDREC is a combined file 
(column 15) . Assume that the file will 
be used as input, and additional infor- 
mation will be punched in the input 
cards during processing. Therefore, it 
is a Secondary file (Column 16). This 
combined file is read in and punched 
out on an IBM 1442 Card Read-Punch. 
The Device code is specified as READ42 
and the Symbolic Device code as SYS002. 

The file OUTPUT is a printed report in 
this example. It is variable in 
length, and the longest record is 132 
characters. The overflow indicator for 
this file is OF (columns 33-34) . The 
printed report in this case has a 
Device code of PRINTER and a Symbolic 
Device code of SYSLST. 
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FILE EXTENSION SPECIFICATION SHEET 



Entries made on the File Extension Specifi- 
cation sheet provide information to the RPG 
about such functions as chaining files, 
tables used in the object program, and 
information about record- address files. In 
the sections Using Tables in the Object 
Program and Processing Multiple Input 
Files , detailed information and examples 
show how to use these functions. A maximum 
of 25 line entries may be made on the File 
Extension Specification sheet. 

The entries allowed on the File Exten- 
sion Specification sheet are discussed in 
the following sections. 



RECORD SEQUENCE (COLUMNS 7-8) 



Chaining File 



If the file defined on the line is a chain- 
ing file, enter the sequence of the file in 
columns 15-16 of the Input Specification 
sheet. The file name of the chaining file 
has been entered in columns 7-14 of the 
Input Specification sheet. 



Record- Address File or Table File 



FROM FILENAME (COLUMNS 11-18) 

Enter in these columns: 
1. The name of the chaining file, 
The name of the RAF, or 



2. 

3. 



The name of the table file as defined 
on the File Description Specification 
sheet. 



Chaining File . This is the file that 
has the data record containing the chaining 
field. The name of the file is taken from 
columns 7-14 of the File Description Speci- 
fication sheet. The entry must be left- 
justified. 

Reco rd Address File . If the file 
defined on the line is a record- address 
file, enter the name of the RAF file in 
these columns. The entry must be left- 
justified. 

Table File . Enter the name of the file 
that contains the table if the file defined 
on the line is a table file. This file has 
been defined on the File Description 
Specification sheet. The entry must be 
left- justified. Table files are processed 
in the same order in which they appear on 
the File Extension Specification sheet. 



Leave columns 70-80 blank if a record- 
address file or a table file is defined on 
this line. 



NUMBER (COLUMNS 9-10) 



Chaining Field 



Enter the number of the chaining field in 
columns 9-10. The number of the chaining 
field is taken from columns 61-62 of the 
Input Specification sheet. 



Record-Address File (RAF) or Table File 



Leave columns 9-10 blank if the file 
defined on the line is a record-address 
file or a table file. 



TO FILENAME (COLUMNS 19-26) 



Chained File Name . If the file is a 
chained file, enter its name. The data 
record is obtained from this file. The 
entry must be left- justified. 

RAF File Nam e. If the From Filename 
entry (columns 11-18) is an RAF file, enter 
the name of the file that contains the data 
record to be processed. The entry must be 
left- justified. 



Table File Name. 



If the From Filename 



entry (columns 11-18) is a table file, 
enter the name of the file to be used as an 
output file after the table has been updat- 
ed during program execution. Leave this 
column blank if the table file is not to be 
written out. A table can be put out on 
only one device. For additional informa- 
tion on tables, see Using Tables in the 
Object Program. The entry must be left- 
justified. 
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TABLE NAME (COLUMNS 27-32). 



PACKED (COLUMN 43) 



Columns 27-32 contain the name of either 
the table that contains arguments or 
functions. If only one table name 
(argument or function) is read in on one 
device, then it is entered in this column, 
and columns 46-57 are left blank. The name 
must be of the form TABnnn. The entries 
nnn may be any alphameric characters. (The 
entry must be left- justified. ) 



Direct Organization 



When a file that has direct organization is 
processed under control of a record-address 
file or a chaining file, the entry for 
these columns is the RPG internal label of 
the conversion routine. The concepts of 
chaining and record address files have not 
been discussed at this point in the publi- 
cation. For a complete discussion of 
chaining, conversion, and record-address 
files, see Processing Multiple Input Files . 



NUMBER OF TABLE ENTRIES PER RECORD (COLUMNS 
33-35) 



If the data in the table is in the packed- 
decimal format, enter P in this column. 
Otherwise, leave this column blank. 



DECIMAL POSITIONS (COLUMN 44) 



If the data contained in the table is 
numeric, enter a zero if there are no deci- 
mal positions. Enter the number of decimal 
positions (1-9) in this column if the data 
contains decimal positions. If the field 
is alphameric, leave this column blank. 



SEQUENCE (COLUMN 45) 



If the data contained in the table is in 
ascending sequence, enter an A in this 
column. If the data contained in the table 
is in descending sequence, enter a D in 
this column. Leave this column blank if 
the data contained in the table is not in 
ascending or descending sequence or if this 
specification is not required. 

Note ; The next five specifications 
(columns 46-57) are used only if alter- 
nating functions and arguments are read 
in on one device. 



Enter in columns 33-35 the maximum number 
of table entries (that is, the number of 
arguments or functions) that are contained 
in each input record. The entry must be 
right- justified. 



NUMBER OF TABLE ENTRIES PER TABLE (COLUMNS 
36-39) 



TABLE NAME (COLUMNS 46-51) 



If two table names are used, enter the 
second table name in these columns. It 
must be of the form TABnnn. This specifi- 
cation is used only if alternating argu- 
ments and functions are used. The entry 
must be left- justified. 



In these columns, enter the exact number of 
table entries (the number of arguments or 
functions in the table) contained in the 
table. The entry must be right- justified. 



LENGTH OF TABLE ENTRY (COLUMNS 5 2-54) 



Enter in these columns the length of each 
table entry. The maximum size of a table 
entry is 248 bytes. The entry must be 
right- justified. 



LENGTH OF TABLE ENTRY (COLUMNS 40-42) 



PACKED (COLUMN 55) 



Enter in columns 40-42 the length of each 
table entry. The maximum size of an entry 
is 2 48 bytes. The entry must be right- 
justified. 



Enter a P if the data in the table is in 
the packed-decimal format. Otherwise, 
leave this column blank. 
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Figure 67. Entries for the File Extension Sheet 



DECIMAL POSITIONS (COLUMN 56) 



If the data contained in the table is 
numeric, enter a zero if there are no deci- 
mal positions. Enter the number of decimal 
positions (1-9) in this column if the data 
contains decimal positions. If the field 
is alphameric, leave this column blank. 



SEQUENCE (COLUMN 57) 



If the data contained in the table is in 
ascending sequence, enter an A in this 
column. If the data contained in the table 
is in descending sequence, enter a D in 
this column. Leave this column blank if 
the data contained in the table is not in 
ascending or descending sequence or if this 
specification is not required. 



1. In this example, INPUT is a card file 
containing the record key that will be 
used to process records in the DASD 
file MASTCUST. The file INPUT is the 
chaining file. That is, it is the file 
that links or chains to another file 
(in this case MASTCUST). The field 
contained in INPUT, which is used to 
link the two files, is the chaining 
field. The record sequence of the 
input file is taken from the Input 
Specification sheet. CI is the number 
of the chaining field. Thus, INPUT is 
chained to MASTCUST by using a field 
defined on the input specifications 
that contains CI in columns 61-62. A 
complete discussion of chaining may be 
found in the Chaining section. 



2. In this example, RAFFILE is a record- 
address file that supplies the 
addresses of the records to be proc- 
essed in the file DISKUPDT. 



COLUMNS 58-74 



Leave columns 58-74 blank, unless comments 
are entered in these columns. 



ENTRIES ON THE FILE EXTENSION SPECIFICATION 
SHEET 



Figure 67 shows several examples of entries 
that can be made on the File Extension 
Specification sheet. The numbers to the 
right of the entries correspond to these 
explanations : 



TABFIL is the name of a table file that 
contains both a table of arguments and 
a table of functions. 

The arguments in the file are iden- 
tified by the table name of TABARG. 
The argument table is described in 
columns 33-45. There are 10 arguments 
in each record. The number of argu- 
ments in the table is 150, and each 
argument is 10 characters long. The 
arguments are numeric (column 44). 

The functions in the file are iden- 
tified by the table name TABFUN. The 
function table is described in columns 
52-57. Each function is 10 characters 
long, and each function is organized in 
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the form: argument- function. There- 
fore, TABARG was specified first. 

4. This example shows the specification 
for a table file that contains only 
arguments. After the table of argu- 
ments is updated the table is to be 
written on an output unit (card or 
printer. ) 

TABFIL is the name of the table 
file. 

NEWTAB is the name given to the 



table file when it is being written on 
the output unit (output operations). 

The arguments in the file are iden- 
tified by the table name of TABREC. 
The argument table is described in 
columns 33-45. Ten table entries are 
in each record. The number of table 
entries in the table is 150, and each 
table entry is 10 characters long. The 
data is numeric. TABREC is the name 
used during updating or during a lookup 
operation on the Calculation Specifi- 
cation sheet. 
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USING TABLES AND EXIT ROUTINES IN THE OBJECT PROGRAM 



This section of the publication contains 
information on: 

1. How to create and use tables, and 

2. How to transfer control from the RPG 
program to a subroutine coded by the 
user, and how to return to the RPG 
program. 



USING TABLES IN THE OBJECT PROGRAM 



RPG enables the programmer to use tables in 
the object program. A table is nothing 
more than an arrangement of data that is 
searched and used by the object program. 
Tables are loaded into storage by the RPG 
object program before any files are proc- 
essed. Tables can be loaded from card, 
tape, or disk (consecutive). 



(Argument) 
Part No. 



(Functions) 
Prices 



DATA CARDS 
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101 
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132 
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075 
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005 
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159 
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397 


10 


155 


11 


210 


12 


069 


13 


550 




Search Argument is 10 

Figure 68. Using a Table 

All entries in a table will be: 



1. Arguments, 

2. Functions, 

3. Alternating arguments and functions, or 

4. Alternating functions and arguments. 



A table may consist of two parts: an 
argument and a function . In Figure 68 the 
table consists of part numbers (arguments) 
and prices (functions) . If the price of 
part number 10 is wanted, the table is 
searched until part-number 10 is found. 
The corresponding function of 10 in the 

table is 155. The 155 represents $1.55, in Figure 69 shows these four possibilities 
this example. The number used to search 
the table is called the search argument . 
The card file in Figure 68 contains part 
numbers that have been ordered. The cards 
do not contain the prices of the parts. 
The part number is selected from the card 
by the RPG program, the table is searched, 
and the price is retrieved and made availa- 
ble for additional processing. 
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Arguments 



Argument 1 



Argument 2 



Argument 3- 




of the tables must contain the letters 
TABnnn (nnn may be any alphameric 
entry) . In Figure 73 the alternating 
table file called RATETABL is split 
into the collection of arguments 
(TABNUM) and functions (TABRAT) . RATE- 
TABL is the name of the file containing 
the tables. 



Functions 



Function 1 


Function 2 


Function 3 /('Function N 



Alternating Arguments and Functions 



Argument 1 



Function 1 




Fun. N 



Alternating Functions and Arguments 



Function 1 



Argument 1 




Argument N 



3. Although all the tables may be loaded 
from the same device, a unique file 
name must be assigned in columns 11-18 
for each line entry on the File Exten- 
sion Specification sheet. The tables 
will be loaded into storage before the 
object program is processed, and each 
line entry on the File Extension Speci- 
fication sheet must have: 

a. A unique file name (columns 11-18). 

b. Entries in columns 27-45 if the 
table is only arguments or func- 
tions. 

c. Entries in columns 27-45 and columns 
46-57 if the table consists of 
alternating arguments and functions. 



Figure 69. Four Types of Tables 



Rules for Creating Records Cont aining Table 
Data 



RULES FOR FORMING TABLES 



Each unit of table data is called a 
table entry. That is, each argument is 
a table entry, and each function is a 
table entry. 

The collection of all arguments is 
assigned a name. The collection of all 
function entries is assigned a name. 
The names must be unique, and the names 



Each record must begin with the first 
table entry of that record in position 
1. 

All records must have the same number 
of table entries, except the last. In 
Figure 70, the first card in the table 
file has ten table entries.. All subse- 
quent card records must have ten table 
entries. The second card could not 
contain six; the third could not con- 
tain seven, for example. 
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Figure 70. Table File Containing Arguments and Functions 



All entries must be continuous in every 
record. In Figure 70, the first entry 
begins in position 1 and the second 
entry begins in position 4. No blanks 
can be contained between the table 
entries . 



All entries belonging to a table must 
have the same length. In Figure 70, 
each argument is three positions long 
and each function is six positions 
long. 

When alternating tables are used, each 
record must begin with an entry of the 
same type. Each record must always 
begin with an argument, or each record 
must always begin with a function as 
shown in Figure 70. 



When alternating tables are used, the 
table entries in each record must not 
be split. Function 3, for example, 
must be in the same record as argument 
3. It is not permissible for a func- 
tion to appear in a different record 
other than its corresponding argument. 



If a table consists of all arguments or 
all functions, an argument or a func- 
tion must not be split. Assume that 
argument one, argument two, argument 
three, and argument four are contained 
in the first record. No part of argu- 
ment four could overflow into the sec- 
ond record. Figure 71 illustrates the 
correct way to specify records contain- 
ing arguments or functions. 
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Figure 71. Table File Containing All Arguments 



9. 



The table may be ascending, descending, 
or in no sequence. 

The records of a table must be on a 
sequentially organized file. 



10. The table file to be loaded must con- 
tain the exact number of table entries 
as specified on the File Extension 
Specification sheet. 



METHODS OF PROCESSING TABLES 



The operation code LOKUP entered on the 
Calculation Specification sheet causes a 
table lookup operation to be performed. 

Factor 1 contains the search argument . 
The search argument may be a literal or a 
field name. 

Note : The length of the data in the 
argument table (table argument) must be 
equal to the length of the search argu- 
ment. The length includes the decimal 
positions. 

Factor 2 contains the name of the table 
which contains the arguments. 



The result field contains the name of 
the table from which an associated function 
is to be located, if arguments and func- 
tions are used. The result field may be 
left blank if the user wants to determine 
if an argument is present in the table, but 
does not require the corresponding func- 
tion. 

Resulting indicators (columns 54-59) 
must always have an entry when the table 
lookup operation is performed. The indica- 
tors indicate the type of lookup to be 
performed, and the indicators are turned on 
whenever the condition is satisfied. The 
program may search for the table argument 
next-higher than the search argument, or it 
may search for the table argument next- 
lower than the search argument, or it may 
search for the table argument equal to the 
search argument. An entry must be made in 
columns 54-59. Combinations of high-equal 
or low-equal searches may be specified by 
placing indicators in the appropriate two 
of the three fields (columns 54-59) . 

The lookup operation is performed in 
this way: 

1. The object program takes the field name 
or literal in Factor 1 and searches the 
table indicated by Factor 2. The kind 
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Figure 72. Using Table Files 



of lookup is determined by the entries 
in the resulting indicators. 



the argument table that is equal to the 
search argument (columns 58-59). 



2. After the proper entry from the 

argument table has been found, the 
corresponding function from the func-' 
tion table (indicated by the entry in 
the result field) is located, and 
placed in the special holding area of 
the function table. If the proper 
table argument is not found, the indi- 
cators in columns 54-59 are not turned 
on. 

Other operations may be performed using 
the data just found by the table lookup 
operation. This data is stored in the 
special holding area within the function 
table, and can be retrieved by merely using 
the name of the function table in either 
Factor 1 or Factor 2 of an operation. 

Figure 72 illustrates several ways the 
data found by the operation may be used. 
The numbers on the figure correspond to 
this discussion. 

1. Factor 1 contains the name of a field. 
The field PERCNT contains the search 
argument. The name of the table that 
contains the arguments is TABCST. The 
name of the table that contains the 
corresponding function is TABAMT. The 
program will search for the value in 



The data found in TABAMT from the pre- 
vious operation is used as the search 
argument in this example. (TABAMT is 
the name of the table; however, Factor 
1 is the function located in the spe- 
cial holding area of the table TABAMT) . 
The program searches for the value in 
the table TABARG that is equal to the 
search argument (columns 58-59). 

In this example, the data obtained from 
the function table TABFUN from the 
previous lookup operation is moved to a 
field called WITHTX. It will be used 
for additional calculations. 

In this example, the data found in the 
function and argument tables is updat- 
ed. The literal +25 is the search 
argument. The table TABFIL is searched 
for +25 (indicated by the entry in 
columns 58-59). A new entry for the 
corresponding function of +2 5 is 
entered in TABLIT. The new function is 
+500; the new argument is +30. 

In example 5, a lookup with only one 
argument table turns on indicator 3 if 
SEARCH is equal to an argument in TAB- 
NUM. If 30 is not on (N30) , HI is 
turned on by the SETON instruction. 
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6. This example illustrates the facility 
for adding to the table. In this exam- 
ple, the LOKUP operation is conditioned 
on indicator 01. (Indicator 01 is 
turned on when the input file contains 
records with additional table informa- 
tion- Each record contains the two 
fields, NEWARG and NEWFUN. ) To deter- 
mine the first vacant argument, a field 
of zeros is used as the search argu- 
ment. (Zeros are used because the 
argument field is numeric. Blanks 
would be used if the argument field had 
been alphabetic. ) 



If there is an equal compare, indi- 
cator 35 is turned on. Since the argu- 
ment field of the table is vacant, the 
corresponding function field is also 
vacant. (It is the user's 
responsibility to make certain that the 
vacant table entries contain all zeros 
or blanks, depending on whether the 
fields are numeric or alphameric. ) The 
new argument (NEWARG) is inserted in 
the TABARG field, and the corresponding 
new function (NEWFUN) is inserted in 
the TABFUN field. 



EXAMPLE OF USING TABLES 



Figures 73 and 74 illustrate an input data 
file, the way a table might appear, and the 
entries necessary on the RPG specification 
sheets in a program that uses tables. In 
this example, a card-input file contains 
the number of hours worked by each employee 
(columns 42-44) and the employee's number 
(columns 1-5). The RPG program takes the 
employee number and uses it as the search 
argument to find the salary rate for the 
employee. After the employee's rate has 
been determined, the rate is multiplied by 
the number of hours worked by the employee. 
The result of this operation is the amount 
earned for each employee. 

TABRAT TABRAT TABRAT 

TABNUM | TABNUM | TABNUM J 



RATETABL 
(File Name) 



12345 



1436 



12347 



1390 



Table 
Argument 



Table 
Argument' 



12861 



1492 



Table 
Argument 



Table 
Function 



Table 
Function 



Table 
Function 



RETRIEVING UPDATED TABLES 



After a table has been updated, the table 
may be written out for later use. On the 
File Description Specification sheet, the 
programmer enters the name of the file that 
will contain the updated table. The file 
must be defined as an output file. On the 
File Extension Specification sheet, the 
programmer enters the name of the file on 
which the updated table will be written. 
He enters the name of the file in To Filen- 
ame . The updated table file will be put 
onto the output file after the program has 
reached the end-of-job condition (LR 
condition). 



EMPNO 
1-5 




HRS 

WKD 

42-44 


_ ' 



(Input 
Data) 

Figure 73. 



Using Alternating Arguments and 
Functions 



In this example, the table consists of 
alternating arguments and functions. The 
way the table data might appear is shown in 
Figure 73) The name of the file that con- 
tains the arguments and functions is RATE- 
TABL. The collection of arguments is 
called TABNUM (the table number) , and the 
collection of functions is called TABRAT 
(table rate). 

Entries on the specification sheets 
follow. 



The name of the file need not be entered 
on the Output- Format Specification sheet. 
If the updated table is to be put out on a 
printer, no automatic skip to a new page 
will be initiated by the RPG program. 



The output table must have the same 
format as the input table. When using tape 
units as output devices for tables in 
blocked format, each output table file 
requires a separate tape unit. 



FILE DESCRIPTION SPECIFICATION SHEET 



The two files are defined on the File Des- 
cription Specification sheet. The file 
containing the input card records is called 
TIMECARD. It is an input file (I in column 
15); it is the primary file (P in column 
16) ; and when the file is depleted, proc- 
essing is terminated (E in column 17). The 
records in the file are in ascending order 
(A in column 18) ; they are f ixed-in-f ormat 
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<F in column 19) • Each record has a block 
length of 80 (80 in columns 22-23), and 
each record is 80 characters long (80 in 
columns 26-27). 

This file is read in on the IBM 2540 
Card Read-Punch, so the Device code is 
READ40, and the Symbolic Device code is 
given as SYSRDR. 

The table file is defined on the line 
below the card-input file. The name of the 
file (RATETABL) is entered in Filename 
(columns 7-14). It is an input file (I in 
column 15), and the records in the file are 
fixed in format (F in column 19). The file 
has a block length of 80, and each record 
is 8 characters long. The E in column 39 
indicates that additional information about 
the file is coded on the File Extension 
Specification sheet. 

This file is read in on the IBM 1442 
Card Read- punch, and therefore it is 
assigned the Device code of READ42. This 
is the second card reading device on the 
system so it is assigned a Symbolic Device 
code of SYS 001. 



FILE EXTENSION SPECIFICATION SHEET 



On the File Extension Specification sheet, 
the table file is further defined. The 
name of the file is entered in From Filen- 
ame (columns 11-18). The collection of 
arguments (TABNUM) is entered in the first 
Table Name (columns 27-32). There are ten 
arguments per record (columns 34-35), and 



there are 1500 entries in the table 
(columns 36-39). Each table entry is five 
positions long (5 in column 42), and fhi»r(> 
» y ig r* n *°r:ima,l positio ns (N in column 44). 
the table is ascending (A in column 45). 

The collection of functions is described 
in columns 46-57. The name of the func- 
tions (TABRAT) is entered in columns 46-51. 
Each entry in the table is four positions 
long (4 in column 54), and there are three 
decimal positions specified (3 in column 
56). The functions are in ascending order. 



INPUT SPECIFICATION SHEET 



The input file (TIMECARD) is described on 
the Input Specification sheet. The name of 
the file is entered in columns 7-14. The 
file is assigned a sequence of AA (columns 
15-16) , and resulting indicator 01 is 
turned on whenever an input record is pre- 
sent for processing. No record identifi- 
cation codes are specified because every 
record will be processed in the same way. 

Lines 020 and 030 are used to describe 
the locations of the two input fields used 
by the program. The employee number is 
located in columns 1-5 of the input record, 
as specified by the entries in Field Loca- 
tion (columns 47 and 51) , and the employee 
number is given the field name EMPNOM. The 
number of hours worked by the employee is 
found in columns 42-44 of the input record, 
as specified by the entries in field loca- 
tion. The name HRSWKD is assigned to the 
number of hours worked by each employee. 
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CALCULATION SPECIFICATION SHEET 



Three calculation specifications are shown. 
On line 010,, EMPNUM (employee number) is 
used as Factor 1. The employee number is 
the search argument. The operation code 
LOKUP which is coded in columns 28-32 caus- 
es the lookup operation to be performed. 
Factor 2 contains the name of the collec- 
tion of arguments CTABNUM) which is 
searched by the search argument. The 
result field contains the name of the col- 
lection of functions (TABRAT). Thus, this 
operation causes the employee number 
(EMPNUM) to be used as the search argument 
for the data contained in TABNUM. The 
result field is four positions long with 
three decimal positions. The 03 entered in 
columns 58-59 indicates that indicator 03 
will be turned on when the search argument 
finds an entry in the argument table that 
is equal to the search argument. 

The specifications on line 020 are per- 
formed when indicator 03 is on. The rate 
for the employee (TABRAT) which has just 
been located is multiplied by the number of 
hours worked (HRSWKD) , and the result is 
stored in EARNS which is five positions 
long and has two decimal positions. The 
answer is half-adjusted. 

If the search argument does not find an 
equal entry in the argument table 
(indicator 03 is not on), the specifi- 
cations on line 030 are performed, columns 
9-11 contain the specification N03. 

The literal +000.00 is then moved to the 
field EARNS, specifying that the employee 
does not have an entry in the table. 



EXIT TO A USER'S ROUTINE 



GENERAL INFORMATION 



By use of the EXIT operation code on the 
Calculation Specification sheet, RPG pro- 
vides the facility to transfer control from 
the RPG object program to some subroutine 
that has been coded independently. A sub- 
routine might be a standard routine (such 
as a state withholding tax) or it might be 
a routine that performs a function not 
easily accomplished using RPG (such as a 
square-root computation). The subroutine, 
written in the Assembles language, is coded 
by the user, and entries made on the calcu- 
lation sheet enable the programmer tos 

1. Exit from the RPG program to the sub- 
routine, 



2. Execute the subroutine, and 

3. Return to the main program after the 
subroutine has performed its function. 
Each subroutine must be assembled as a 
separate module. 



HOW TO CODE EXIT 



On the Calculation Specification sheet, the 
EXIT operation can be a conditional opera- 
tion. 7-8, 9-11, 12-14, or 15-17, the EXIT 
occurs when the designated conditions are 
satisfied. If no indicators are used, the 
EXIT occurs every time the detail calcula- 
tions are performed. Columns 28-31 must 
contain the operation code EXIT , and Factor 
2 must contain the label of the user's 
subroutine. 



POSITION OF EXIT IN THE CALCULATION 
SPECIFICATION ENTRIES 



The following results are obtained depend- 
ing on the location of the EXIT code on the 
Calculation Specification sheet. 



Calculation 
Entry 



First Detail 



| 2. Last Detail 



3. First Total 



4. Last Total 



When the EXIT 
Will Occur 



At the end of the data 
routine (after the data 
is extracted from the 
input record) - 

Immediately before (r^dJ% 
*feeading"~record3 are 
written. 

At the end of the input 
routine (after the 
record- type has been 
determined and the 
control-field break has 
been tested) . 

Immediately before the 
total records are writ- 
ten. 



GENERAL RULES FOR USING EXIT 



RPG provides the facility for the subrou- 
tine to test indicators and use fields 
that have been defined in the RPG program. 
RPG also provides the facility for the RPG 
program to use fields that have been 
defined in the subroutine. These two 
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facilities are provided by using the two 
operation codes RLABL and ULABL. 

If the user has defined a field in the 
subroutine, and this field is to be used 
in this RPG program, he must code: 

1. ULABL in the operation- code columns. 

2. The label of the field in Result 
Field . 

3. The length of the field in Field 
Length . 

4. The decimal length in Decimal Posi- 
tion , if applicable. 

If the user has defined a field in the 
RPG program and this field is to be used 
in the subroutine to which the EXIT will 
occur, he must code: 

1. RLABL;in the operation code. 

2. The label of the field in Result 

When executing the subroutine, the user 
may need to reference the resulting indi- 
cators that are used in the RPG portion of 
this program. To do this, the user must 
code: 



2. When control of the program passes 
from the RPG program to the subrou- 
tine, the address of the RPG instruc- 
tion to which the subroutine must 
return is stored in register 14. 



3. The RPG instruction to which the sub- 
routine returns is the instruction 
that follows the EXIT operation. 



4. If registers are used within the sub- 
routine, the contents of the registers 
the programmer intends to use must be 
stored before the subroutine is exe- 
cuted. 

5. Before the subroutine transfers back 
to the RPG program, the registers must 
be restored to their original con- 
tents. 

6. The general registers available for 
the user's purposes are registers 2, 
8, 9, 10, and 11. Registers 3-7 can 
be used only if no RLABL* s are speci- 
fied in the user's subroutine. The 
remaining registers cannot be used. 



1. RLABL in the operation code columns, 

2. INnn in the result field. The nn 
represents the specific indicator that 
the user wants to test in the subroutine. 
Therefore, if MR was to be tested in the 
subroutine, he would code INMR in the 
result field. 

Indicators defined in the subroutine 
cannot be used or referenced in the basic 
operating system RPG program. 



USING INDICATORS AND FIELDS IN THE EXIT 
ROUTINE 



If in the exit subroutine, the user sets 
on, sets off, or tests resulting indica- 
tors, he must observe the following 
rules: 

1. To set on a resulting indicator, set 
the data located at INnn to the hexa- 
decimal F0. 

2. To set off a resulting indicator, set 
the data located at INnn to the hexa- 
decimal 00. 



USE OF REGISTERS 



The way in which registers are used by the 
programmer is strictly defined. These 
rules must be followed: 

1. The register that contains the base 
address of the subroutine is register 15. 
The first instruction of the programmer's 
subroutine must load the base address of 
the subroutine in register 15. 

Note : The base register for an exit 
to a user's subroutine for label 
checking is register 8, and not reg- 
ister 15. 
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3. To test resulting indicators: 

a. If on, the data at INnn, will be 
the hexadecimal F0. 

b. If off, the data at INnn will be 
the hexadecimal 00. 

If numeric data from the RP3 object 
program is used in the subroutine, it will 
be in the packed- decimal format. If the 
numeric data from the subroutine is sup- 
plied to the RPG object program, it must 
be in the pa eked- decimal format. 

Figure 75 shows the coding steps neces- 
sary to implement the EXIT routine. 
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An input file of the name INPUT turns 
on resulting indicator 01 if an X is 
in position 80. 

If the field AMOUNT is blank, field 
indicator 02 is turned on. 

Whenever indicator 01 is on, the cal- 
culation specifications entry EXIT 
causes the program to exit to the 
user's subroutine called TAXROUTE . 

The operation preceding EXIT 
defines (and sets off) an indicator 
that can be used in the subroutine. 

Within the subroutine, the user wants 
three things? the AMOUNT field, and 
the indicators 02 and 14. RLABL ena- 
bles the subroutine to reference the 
AMOUNT field, and IN02 enables the 



subroutine to test indicator 02. INI 4 
enables the subroutine to utilize 
indicator 14 in the subroutine. 



5. In the subroutine, assume there is a 
field (TAXAMT) that the user wants to 
use on the output- format specifi- 
cations. If the field TAXAMT in the 
subroutine is blank, the subroutine 
turns on indicator 14. TAXAMT is 
referenced in the output specifi- 
cations, and it will not be printed if 
indicator 14 is on. If the user 
chooses, he can use it later in the 
calculation specifications. The entry 
ULABL enables the field TAXAMT to be 
referenced by the RPG program. 

6. On the output sheet, TAXAMT is treated 
as a field. 



106 



DISK STORAGE CONCEPTS 



This section of the manual is for readers 
not familiar with disk storage operations. 
It contains a general description of data 
organization and retrieval, and defines 
some of the terms you may encounter in 
related literature* 



A logical file may occupy part of a 
disk storage drive, an entire disk storage 
drive, or more than one disk storage 
drive* The location of the logical file 
in disk storage is defined by its lowest 
and highest addresses. This area is the 
extent area * One logical file can occupy 
more than one extent area. The extent 
areas do not have to he adjoining. 



INTRODUCTION AND TERMINOLOGY 



The distinction between two concepts is 
important: file organization and file 
processing ., 

File Organization is the method of 
arranging data records on a direct access 
storage device. A file is organized dur- 
ing the development stages of the applica- 
tion. 

File Processing is the method of 
retrieving data records from the file. 

TO achieve the most efficient use of 
the System/360 components, carefully con- 
sider the relationship between how a file 
is organized and how to retrieve records 
from it. This is particularly important 
when designing data files for storage in a 
direct access storage device, such as the 
IBM 2311. 

The method of organization best suited 
to a particular file of disk records 
depends upon many factors. These factors 
must be analyzed for each file in each 
particular application. Frequently, you 
can use more than one method of processing 
on the same file. For example, records 
within a file might be processed at random 
during an updating run, and sequentially 
during a billing run. 



DATA FILES 



Data files are recorded on such media 
ast paper, cards, tape, or disk packs. 
Data files consist of a number of indivi- 
dual records that range from a few records 
up to thousands or millions of records. 



RECORD 



A reco rd can be defined as a collection of 
information consisting of alphameric 
and/or nonalphameric characters related to 
a common identifier. The common identifi- 
er is known as a record's control field , 
or key. Usually, one of the fields within 
a record identifies the record. For exam- 
ple, man number could be the key or iden- 
tifier for a payroll record. 



The size or length of records varies 
from file to file, and can be from eigh- 
teen characters to thousands of charac- 



LOGICAL FILE VS PHYSICAL UNIT 



It is important to distinguish between a 
logical file and the physical unit used to 
store the file. A logical file is a group 
of related data records, such as a payroll 
file. 

A physical unit for storage of data 
records could be an IBM 2400-series Mag- 
netic Tape Unit, an IBM 2311 Disk Storage 
Drive, or an IBM 2540 Card Read-Punch- 



A single record usually includes one or 
more logical data fields. A data field is 
a sequence of one or more characters which 
is treated as a processing unit of infor- 
mation. An individual data field is nor- 
mally identified by its location within a 
record. 

The logical structure of records and of 
fields within records is important in 
high-speed recording media such as magnet- 
ic tape and disks. This logical structure 
is strongly affected by whether a record 
is of fixed or variable length. 
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FIXED- LENGTH RECORDS 



In fixed- length record files, all records 
are allocated the same number of character 
storage positions. Identical data fields 
are present in every record, whether they 
are used or not- The control f ield (key) 
J8^sjially-the^-ifiret^fJjE dd present in ~Hi_ ^ m 
rec ord. 

In many applications, the fixed length 
records would make inefficient use of file 
storage space. For example, a fixed 
record length of 850 positions would waste 
many storage positions, if the average 
record length is 230 positions and the 
minimum length is only 100 positions. 

Situations such as this require the 
development of space-saving techniques 
based on varying the number of storage 
positions allocated to data records. 



indicated by a block- length character- 
count field present in each block. (See 
Variable- Length Records ). 

The Basic Operating System handles the 
blocking and deblocking of records so the 
user need only design the most efficient 
blocking factor for his particular data 
file and equipment specifications. In the 
Basic Operating System, only the "input 
records for Indexed-Sequentially or 
Sequentially organized files can be 
blocked. 



FILE ORGANIZATION 



Data records should be organized and 
stored to facilitate subsequent process- 
ing. The two types of file organization 
ares sequential and random . 



VARIABLE- LENGTH RECORDS 



SEQUENTIAL ORGANIZATION 



Completely variable- length records are 
sometimes developed for more efficient use 
of storage. In this approach, the data 
portion of the record may be of any 
length, but the key (control field) size 
is constant. A record- length character- 
count field in each record shows the 
length of a variable- length record. 



BLOCKING RECORDS 



The length of individual data records 
varies with type of data and the applica- 
tion that requires such data. The format 
of a data record is significant to the 
efficient use of the various storage media 
available on the System/360. One impor- 
tant element in the design of data records 
involves blocking and deblocking . 
Input/output units (storage media) are 
relatively inefficient when used to record 
short blocks of information. TO increase 
the efficiency of input/output units, data 
records are assembled into blocks of 
records whose sizes are convenient and 
efficient for processing. 

Each physical record on either tape or 
disk requires interrecord gaps.. These 
gaps are blank areas used to distinguish 
beginning and ending points of a record. 
If records are blocked before loading onto 
a tape or disk, many of these gaps can be 
eliminated. Variable length blocks are 
permitted in basic operating system RPG. 
The length of a variable-length block is 



The logical sequence of records in this 
file depends upon a significant key 
(control field) appearing in the records. 
To establish a sequentially organized 
file, sort and then store the records in 
key sequence. This provides for records 
with successively higher (or lower) keys 
(control numbers) to have successively 
higher physical address numbers. Cards 
and tape files are always organized in 
this serial manner and usually are consid- 
ered as one continuous " string " of 
records. Another variation of sequential 
organization is known as ll ndexed-Seguen- 
tial organization. ~~ 



Indexed-Sequential Organization 



In this type of file organization also, 
the sequence of records depends upon a key 
(control) field. The records are stored 
sequentially in the file. This variation 
of file organization differs form Sequen- 
tial organization in two ways ; 

1. The records may be retrieved from the 
file sequentially or in a random 
sequence. 

2. Only records with transaction activity 
need be retrieved. 

These differences occur because 
Indexed-Sequential organization uses index 
tables which indicate to the program the 
general location of the records. Thus, 
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the program does not have to step through 
the file, record after record, to locate a 
specific record. 

The index tables (prepared and main- 
tained by the Basic Operating System) are 
analogous to the index card file in a 
library. If you know the name of a book, 
or the author, you can look in the index 
and find the location of the book in the 
book files. 

For example, this might be an address 
(Catalog Number) of 426.25. You would 
then go to the book shelves, and (if it 
was your first time in the library) start 
at the first row of the book files and 
proceed through the rows until you found 
the shelf that contained 426.25. Usually, 
each row contains a sign to indicate the 
beginning and ending numbers of all books 
in that particular row. This, as you 
proceed through the rows, you would com- 
pare 426.25 with the numbers posted on 
each row. Assume that one row was labeled 
300.88-550.00. You would then search that 
row for the shelf that contained the book. 
The shelves (like the rows) might also 
contain number ranges to indicate their 
contents. In this case, you would scan 
the shelf numbers until you found some- 
thing like "424. 00-440.96". Then you 
would look at individual book numbers on 
that shelf until you found "426.25". 

The RPG program uses index tables in 
much the same way to locate records organ- 
ized in an Indexed-Sequential file. 



RANDOM ORGANIZATION 



In random file organization, the records 
are generally not stored in the sequence 
of their keys (control numbers). A ran- 
domizing formula converts the record key 
to a numerical address (physical address) 
of the storage device. The record is 
stored at the physical address developed 
by the randomizing formula. In effect, a 
file of records will be scattered through- 
out an entire disk file. 



2. Sequential processing of indexed- 
sequentially organized files. 

3. Random processing of indexed- 
sequentially organized files and 
randomly organized files. 



CONSECUTIVE PROCESSING 



In consecutive processing of a sequential- 
ly organized file, every record in a file 
is examined, and each successive record in 
the physical file is processed in order. 
For example, in a card file, the card 
records are processed in the order that 
the cards are fed into the system. The 
14th card in the file could not be proc- 
essed until after the 13th card had been 
processed. 



SEQUENTIAL PROCESSING 



Sequential processing of an indexed- 
seguentially organized file has two 
variations . 

1. An entire logical file is processed. 
For example, the physical unit con- 
sists of payroll records in cylinders 
to 42 and inventory records in cyl- 
inders 43 to 99. Only the logical 
(payroll) file might be processed. 

2. Only a segment of a file is processed. 
For example, a payroll file is to be 
updated with new pay increases. The 
payroll file is in sequence by depart- 
ment, and each week the pay raises for 
various departments become effective. 
Therefore, on each week's processing, 
only segments of the payroll file are 
updated. The updating is accomplished 
by reading in a card file that con- 
tains the limits of the file to be 
processed. One such card record might 
indicate that the records for depart- 
ments 26-41, are to be updated, anoth- 
er the records for departments 76-80, 
etc. 



FILE PROCESSING 



RANDOM PROCESSING 



For the thsree methods of file organization 
(sequential, indexed-sequential, and 
random) there are three methods of file 
processing :: 

1. Consecutive processing of sequentially 
organized files*, 



In random processing, the sequence of 
processing has no relationship to the 
sequence the data is stored in the file. 
The data file could be organized in either 
a random or an indexed sequential order. 
This processing is sometimes called 
direct. 
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Indexed- Sequential Files 



2. Indexed- Sequential. 



To find a random record in an Index edh 
Sequential file, an index or series of 
indexes is first scanned to localize the 
area of search by determining the track 
that contains the record. The index is a 
sequential list of the key records (of the 
data) with corresponding track addresses. 
The entire track is then scanned to find 
the individual record to be processed. 
This kind of processing is referred to as 
processing in a random sequence with 
record keys (there is no conversion) „ 

This type of processing is analogous to 
directing someone to a house location, 
"the Martin family lives on Harrison 
Street", (a track address), "and their 
house number is 4216" (a key). 



Random Files 



3. Direct. 



This applies to update files as well. 
RPG will create sequential output files 
only. 



SEQUENTIAL ORGANIZATION 



RPG object programs process sequential 
files by processing the entire file from 
the beginning to the end. The records may 
be fixed or variable length and blocked or 
unblocked . 



To find a random record in a random file, 
compute the track address by the same 
randomizing formula used to load the file 
of records. You can make direct access to 
the record. Index tables are not 
required. This kind of processing is 
called processing in a random sequence 
using keys or record identification (ID). 
The record identification indicates only 
the location of the record on the track. 
For example, the 2nd, 12th, 18th, etc. 
record on the track. The program makes no 
comparison of key (control field) data 
when a record number is provided. 

This type of processing can also be 
compared to directing someone to a house 
location. "The Martin family lives on 
Harrison Street", (a track address), and 
their house is the 5th house from the 
beginning of the street". (The "5th" is 
the record identification. ) 

If random processing is performed with 
key field only, the user supplies track 
address and record key field. The program 
then searches the specified track for the 
record with the corresponding record key. 

If an address is assigned to more than 
one record, these duplicate addresses 
(synonyms) will not be handled by RPG. 



FILE PROCESSING IN RPG 



RPG object programs process the following 
input file organizations: 



INDEXED SEQUENTIAL ORGANIZATION (DIRECT 
ACCESS STORAGE DEVICE) 



RPG processes Indexed-Sequential files in 
three ways: 

1. Sequentially, by processing the entire 
file. 



Sequentially, by processing between 
the limits of the file. 



Randomly, by processing records on the 
file in a random order. 



The records may be fixed-length and 
blocked or unblocked. 



Sequential. 



DIRECT FILES (DIRECT ACCESS STORAGE 
DEVICE) 



A direct file will be processed randomly. 
The records must be fixed-length and 
unblocked. The two major sections 
( Processing Single Input Files , and Multi- 
ple Input Files ) describe disk storage 
processing in the RPG program. In these 
sections, processing methods are described 
in detail including specific examples of 
methods and of coding specifications. 
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PROCESSING SINGLE INPUT FILES 



In this section, the methods of retrieving 
records from one input file are discussed. 
Three types of file organization can be 
processed t Sequential , 
Indexed-Sequential, and Direct. 

If there is only one input file, it 
must be designated as the primary file by 
entering a P in column 16 of the File 
Description Specification sheet. 



SEQUENTIAL ORGANIZATION 



Sequential files may be considered as 
•"tape- like". The records on the file will 
be made available for processing in the 
same order in which they are located on 
the medium. The file might be contained 
in cards, on magnetic tape tf or on a DASD. 
The entire file is processed, beginning 
with the first record and continuing until 
the file is depleted. At this point, an 
end-of-file condition occurs, which can be 
interrogated by RPG by specifying an E in 
column 17 of the File Description Specifi- 
cation sheet. In the case of DASD, the 
extent of the file is obtained from the 
operating system. 

Figure 76 shows the coding on the File 
Description Specification sheet necessary 
to process a sequential file. The name of 
the file is MASTERIN. The records are 
fixed in length, and the block length is 
200. Each record is 2Q0 characters long. 
A blank in column 32 indicates that the 
file is a sequential file. 
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• Figure 76. Coding a Sequential File 



INDEXED- SEQUENTIAL ORGANIZATION 



An indexed-sequential file can only be on 
a direct- access- storage device (such as 
disk or drum). For this organization 
method, an index table associated with the 
file contains a record key for every track 
of the file and the number of the track. 
For ascending files, the index table con- 
tains the highest record key on the track. 
For descending files, the index table 
contains the lowest record key on the 
track. An I must be entered in column 32. 

For this organization, there are three 
methods of processing: 

1. Processing the entire file sequential- 
ly. 

2. Processing part of the file sequen- 
tially. 

3. Processing the file randomly. 



PROCESSING THE ENTIRE FILE SEQUENTIALLY 



The object program obtains the limits of 
the file from the operating system, and 
the entire file is processed sequentially 
by record key in ascending or descending 
record- key sequence. Column 28 of the 
File Description Specification sheet must 
be blank. 



PROCESSING PART OF THE FILE SEQUENTIALLY 



If only a part of the entire file is to be 
processed, the object program must be 
supplied with both the low and high keys 
that describe which part of the file will 
be processed. Column 28 must contain L. 

An auxiliary file is used to supply 
these limits. This file is called a 
Record AdSress File (RAF). The RAF does 
not contain data to be processed. It 
contains the record keys (in this case the 
limits) of the data records which will be 
processed. 

The object program obtains the limits 
to be processed from a record contained in 
a RAF and then processes all the data 
between those limits. The object program 
then reads another record in the RAF, and 
the procedure is continued until the RAF 
is depleted. 
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In Figure 77, the first card of the 
record-address file shows that the object 
program is to process from HENRY to RENER, 
The second card shows that the object 
program is to process from JONES to LANON. 
The third card shows that the third part 
of the file to be processed ranges from 
SMITH to ZELDA. Thus, the data records 
that the program processes are contained 
within these limits- In Figure 77, the 
record keys are customer names. 



Customer File 



Record Address File 




'Upper Limit 
- Lower Limit 



File is to be processed from 
Henry to Rener. These names 
are the Record Keys. 



The record-address file in this example 
is nothing more than a file which supplies 
limits of the file to be processed. Rules 
for forming record- address files are con- 
tained in Creating Record Address Files in 
this publication. 



Figure 78 illustrates the coding 
required on the File Description and File 
Extension Specification sheets when limits 
of an indexed-seguential file are to be 
processed. In Figure 78, on the File 
Description Specification sheet DISKIN is 
the name of the input file. The records 
are fixed-length, and the block length is 
150. Each record is 150 characters long. 
Limits of the file are to be processed as 
indicated by the L in column 28. The K in 
column 31 indicates that the record key 
will be used to obtain the records from 
the file. 



• Figure 77. Contents of the Record Address 
File 
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# Figure 78. Processing a Part of the Indexed-Sequential File 



The record- address file (RAFLIMIT) is 
also an input file- The R in column 16 
indicates that it is a RAF file. It is 
fixed- length; it has a block length of 80, 
and each r€scord is 80 characters in 
length. The length of each record address 
field is 5 characters. 

Because the File Extension Specifi- 
cation sheet is required to relate the RAF 
file to the DASD file, an E is entered in 
column 39. On the file extension sheet 
the coding illustrates that RAFLIMIT is to 
provide the addresses for DISKIN. 



sequential processing) , the RAF contains 
the record key of each record of the file 
to be processed . 



Figures 79 and 80 illustrate the speci- 
fications for this type of organization. 
In this example, the first record from the 
record- address file is read. The first 
RAF entry ADAMS is used to obtain the data 
record whose record key is ADAMS. The 
record is retrieved and is processed. The 
next entry, CABOT, is then used to find 
the next data record. 



PROCESSING THE FILE RANDOMLY 



A K in column 31 indicates that record 
keys are used to obtain the records. An 
indexed-sequential file may be processed 
randomly by supplying a RAF. Instead of 
supplying the limits (as in the case of 
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Figure 79. Randomly Processing an 
Indexed-Sequential File 



Direct organization is specified by a D 
in column 32 of the File Description 
Specification sheet. The mode of process- 
ing is random, and an R in column 28 indi- 
cates random processing. If the record 
key is used to obtain the records, enter a 
K in column 31. If record ID is used, 
enter an I in column 31. 



When an RPG program processes an input 
file of this organization, an RAF must be 
supplied. The necessary steps must be 
supplied which convert the data fields 
contained in the RAF to the track address 
and record key or record ID to be 
retrieved. The conversion routine 
depends, of course, on the way a data 
field can be converted to the track 
address of the record. 



DIRECT ORGANIZATION 



A file with direct organization must 
reside on a direct access storage device. 
Records are retrieved from this file by 
using a track address and either a record 
key or record identification. 



The conversion routine is unique, 
according to the needs of a particular 
installation, but a conversion routine 
must be provided. To retrieve records 
from the file, some data fields must be 
converted to produce the track address of 
the record. 
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• Figure 80. Processing an Indexed-Sequential File Randomly, Using an RAF File 
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Supplying Data to be Converted 



One entry in the RAF is supplied for each 
record to be retrieved. The data supplied 
by the RAF should be such that the track 
address and either record key or record 
identification can be derived. Because 
the RAF is not described on the input 
specifications, the entries in the RAF 
will be made available consecutively in a 
field called CONTD. This field is always 
alphameric,, and it: has the record length 
as specified in columns 29-30 of the File 
Description Specification sheet. 



KEYCV has to be entered as the operation 
code of the next calculation specifi- 
cation. 

The result field must contain the name 
(or label) of the field which will contain 
the actual record key used to locate the 
record. The external conversion routine 
is written (in Assembler language) as an 
independent routine that must be combined 
with the generated object program. The 
name of this routine is the label which 
appears as Factor 2 of the EXTCV operation 
on the Calculation Specification sheet. 



Associating a Particular Conversion 
Routine with RAF 



The File Extension Specification sheet 
entry describing the RAF file contains a 
field name in columns 27-32. This name is 
an RPG internal label linking the file 
extension specification with the corres- 
ponding EXTCV operation on the Calculation 
Specification sheet. It appears there as 
an entry in Factor 1 . 

Note : There could be another direct 
organized file in the same object 
program, for which a different EXTCV 
routine would be necessary. 

The entry of EXTCV in the operation 
field indicates the point in the RPG pro- 
gram where the random address conversion 
routine is to be performed. Factor 2 must 
contain the name (or label) of the exter- 
nal routine. This external conversion 
routine must follow the same conventions 
which are specified for the EXIT routine. 
See Use of Registers in this publication. 

The result field must contain the name 
(or label) of the field which will contain 
the track address of the record to be 
retrieved. This is the result of the 
conversion. If the record is retrieved by 
key (specified by a K in column 31 of the 
File Description Specification sheet) , 



Conversion O peration Codes 



The operation codes which follow are used 
in conjunction with the conversion rou- 
tines. If there are several conversion 
routines in the program, these codes are 
repeated. However, the conversion routine 
(or routines) must be written first on the 
Calculation Specification sheet, preceding 
all other calculations. 

EXTCV. This entry is used to indicate 
that a conversion routine, which is 
external to the RPG language, is sup- 
plied by the user. 

KEYCV. This entry declares that the name 
specified in the result field will be 
the field that will contain the record 
key of the record. This entry must 
follow the EXTCV entry if the record 
is retrieved by key. 

Figure 81 shows how the calculation 
specifications are coded for an external 
conversion routine. In this case, if the 
records from the disk are retrieved from 
information in a RAF file, each record 
address is contained in a special hold 
area CONTD. The length of this field 
(CONTD) is specified in columns 29-30 in 
the File Description Specification sheet. 
CONTD need not be defined as an RPG Label 
(RLABL) when EXTCV is used, nor do CON- 
VERT, TRKADR, and KEYFLD. 
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• Figure 81. Specifying a Conversion Routine 



USING THE ADDROUT (21DDRESS OUTPUT) OPTION 



This option could be used to print out a 
DASD file of records in a sequence other 
than the sequence in which the file is 
organized. For example, a payroll file 
that is organized in sequence by man num- 
ber and department could be printed out in 
sequence by social security number. 

Instead of sorting the entire file by 
social security number, the Disk Sort 



Program merely sets up a new file. This 
file consists of records containing the 
addresses of the original data records. 
This new file has the effect of being a 
Record Address File. That is, each record 
in this file directs the program to speci- 
fic disk addresses to obtain the original 
data records in social security number 
sequence. 
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Figure 82, Using the ADDROUT Option 



Figure 8 2 illustrates the File Descrip- 
tion and File Extension Specification 
sheets for a DASD file containing a data 
file and an Address Output (ADDROUT) file. 



The length of the Record Address Field 
(columns 29-30) is 8. The 8 bytes are a 
fixed requirement of the Disk Sort Pro- 
gram. 



ADDRESS OUTPUT FILE 



The file name Filetaq is assigned to the 
ADDROUT file. It is an input file (I in 
column 15); it is an RAF file (R in column 
16) and the end-of-file condition is det- 
ermined by this file (E in column 17). 

The file format is fixed (F in column 
19) as a requirement of the Disk Sort 
Program. 

In this example, the block length is 96 
and the record length is 8. 



The entry ^C in column 31 is required for 
this operation. It applies not to the 
address output file (FILETAG) itself, but 
to the file (PRIMARY) that is to be re- 
trieved by the address output file. 

The T in Type of File Organization 
(column 32) indicates that the file is the 
output of the ADDROUT option of the Disk 
Sort Program. The E in Extension Code 
(column 39) means that a File Extension 
Specification sheet is required. 
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ORIGINAL DATA FILE 



FILE EXTENSION SPECIFICATIONS 



The file name Primary is assigned to the 
original data record file* It is an input 
file (I in column 15). It is a primary 
file (P in column 16) , and it is in 
ascending sequence (A in column 18). The 
sequence refers to the sequence in which 
the file is maintained. 

In this example, the file format is 
fixed (F in column 19) . The block length 
is 2 40 and the record length is 80. The 
mode of file processing is random (R in 
column 28). It is random processing 
because the file is processed in sequence 
by social security number, but it is 
organized in sequence by man number and 
department. 

The entry 1^ must appear in column 31 
regardless of how the file is organized, 
since the records are retrieved by record 
ID. 



The file extension specifications are used 
to identify, for the RPG program, the 
relationship of these two files. The name 
FILETAG (essentially an RAF) is specified 
in From Filename . The name PRIMARY is 
specified in To Filename because this is 
the file the RAF is linked to. 



Note that Table Name (columns 27-32) is 
left blank. This field would normally 
contain the label of the EXTCV specifi- 
cation (Factor 1) that links to the exter- 
nal conversion routine, which converts the 
data in an RAF to an address for a DASD. 
When the ADDROUT option is used, no data 
conversion is necessary because the data 
in FILETAG is already in disk address 
format. 
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PROCESSING MULTIPLE INPUT FILES 



Multiple input filess may be processed 
using either the matching record technique 
or chaining.. These two concepts are dis- 
cussed here. 



SEQUENTIAL PROCESSING OF MULTIPLE INPUT 
FILES (MATCHING) 



The Matching Field entry, Centered in 
columns 61-62 on the Input Specification 
sheet — see Figure 83) determines which 
records of a secondary file are to be 
processed. Both files are processed 
sequentially. The following rules apply 
to the matching-f ield entry. 

1. There can be three matching field 
specification entries (Ml, M2, and M3) 
per record. 

2. The locations of the matching fields 



within a record-type of a file must 
remain fixed. 

3. When there is more than one record- 
type in an input file, the locations 
of the matching fields in the various 
types need not be the same. 

4. Not all the record-types in a file 
must have a matching field. 

5. If Ml, M2, and M3 are specified in the 
primary file, Ml, M2, and M3 must be 
specified in the secondary files. 
Incorrect results will be obtained if 
the same number of matching fields is 
not specified. For example. Figure 83 
shows three record- types. Record- type 
AA has two matching fields, and 
record-type BB has two matching 
fields. If record- type BB had three 
fields, incorrect results would be 
obtained. Record type CC has no 
matching fields (refer to step 4). 
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• Figure 83. Matching Field Entries 



The following example may be used to 
illustrate how the matching field specifi- 
cation is used in conjunction with primary 
and secondary files. Assume that two 
files (in sequential organization) are 
used as shown in Figure 84. The primary 



file has records which contain heading and 
rate information. The secondary file 
contains detailed information which sup- 
plements the primary file. 
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Primary File 

(Heading and Rate Information) 

File Name: MASTER 



Secondary File 

(Detail records) 

File Name: DETLABOR 



Figure 84. Two Input Files with Matching Records 



The input specifications required to 
match these records are shown in Figure 
85, 

The specifications Ml and M2 cause each 
detail record to be compared against the 



primary file's record that has just been 
read. The fields DIVSON and DETDIV in 
both files are identified by M2; the field 
department (DEPT and DETDEP) in both files 
is identified by Ml. 
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Figure 85. Specifying Matching Fields 



MATCHING RECORD INDICATOR 



The matching field entries of Ml and M2 
(and also M3) have an associated internal 
indicator MR (Matching Record). This 
indicator, which is similar to a result 
indicator, is used to control functions 
specified on the Calculation and Output- 
Format Specification sheets. 

The MR indicator is turned on when a 
record of a secondary file matches a 
record of the primary file. It remains on 
during the complete processing of the 
record, and it is turned off when all 
total calculations and printing that may 
be caused for this record are completed. 

If, as in Figure 84, a detail record 
does not have a matching primary record 
(card 035) or if a master record does not 
have a matching detail record (card 25) , 
the indicator MR is not turned on. This 
indicator can be used on the calculation 
specifications to prevent calculations 
upon a detail record contained in the 
secondary file. It could also be used on 
the output specifications to select 
unmatched detail cards. 



types in the file contain the fields used 
for matching. When these record-types are 
specified on the input sheet, the matching 
fields specification is left blank. This 
indicates to the program that these 
record- types do not need to be checked for 
a matching field. These records are proc- 
essed immediately after any total opera- 
tions whose conditions are satisfied. 



MATCHING FIELDS SPECIFIED AS NUMERIC OR 
ALPHAMERIC 



Numeric 



If a field used as a matching record field 
has been specified as a numeric field (an 
entry has been made in Decimal Position ) , 
all zone-bits in all positions of the 
record are removed before the comparison 
of matching fields is made. 



The matching- fields specification can 
be used even though not all of the record- 
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Alphameric 



2. Whenever there is a matching secondary 
record 



If a field used as a matching record field 
has been specified as an alphameric field 
(blank decimal positions) „ no zone- bits 
are removed from the record before the 
comparison is made. 



SEQUENCE OF ASSIGNING MATCHING FIELDS 



One # two, or three fields can be matched 
in one operation* However, if more than 
one field is matched, the designations of 
M3 V M2, and Ml must be assigned in the 
same sequence in which the fields are to 
be arranged for matching, M3 is assigne d 
to the hig hest^-order fj.eld.~lfc to the next - 
loweT=oTo^r~~rieW ! _andl^^ to the lowe"st 
order Tleier; 



For example, in Figure 85 only two 
fields are matched. Ml is assigned to 
DEPT which is the low- order field, and M2 
is assigned DIVSON, which is the high- 
order field. 

The position in the record of the 
fields to be matched does not have to be 
the same in both files. For example, in 
Figure 85, the field DETDIV is located in 
positions 1-4 of the detail records, and 
the field DIVSON is located in positions 
28-31 of the rate-header records. 



ORDER OF PROCESSING MATCHED RECORDS 



Figure 86 illustrates a primary and a 
secondary file. The records in the two 
files will be processed according to four 
possibilities: 

1. Whenever there is a matching primary 
record 



3. Whenever there is an unmatched primary 
record 

4. Whenever there is an unmatched secon- 
dary record. 

In Figure 86, indicator 01 is turned on 
whenever there is a primary record. Indi- 
cator 02 is turned on whenever there is a 
secondary record. Thus, 

1. A matching primary record will be 
coded 01 and MR. 

2. A matching secondary record will be 
coded 02 and MR. 

3. An unmatched primary record will be 
coded 01 and NMR. 

4. An unmatched secondary record will be 
coded 02 and NMR. 

The order in which the primary file and 
the secondary file are processed is listed 
here. Sample Program Two uses the match- 
ing field specifications. 



| Primary File 



Secondary File 



h 


_ T . 

Matching | 
Field | 




-+- 


Matching 
Field 


1 
1 






in the 




Proc- 




in the 


1 


Proc- 




Record 




essed 




Record 


1 


essed 


h 


01001 


-+- 


1st 


-+- 


001 


1 


3rd 




01001 




2nd 




001 


1 


4 th 




02002 




5th 




002 


1 


6th 




03004 




9th 




003 


1 


7th 




03004 




10th 




003 


1 


8th 




05006 




12th 




005 


1 


11th 



















If more than one secondary file is 
specified, the secondary files will be 
processed in the sequence they are speci- 
fied in the File Description Specification 
sheet. 
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Figure 86. Order of Processing Matched Records 
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Card Transaction File 
(Chaining File) 



Master Customer File 
(Chained File) 



Name 1 



Name 1 



Name 1 



Name 1 



Name 1 



AMTPD 



AMTPD 



AMTPD 



AMTPD 



AMTPD 



CUSTNO 
1150 



CUSTNO 
1250 



CUSTNO 
1245 




Customer Number 
(Chaining Field) 




p-930 Name, Address, Etc. 
-1150 Name, Address, Etc. 
,1245 Name, Address, Etc, 
■1250 Name, Address, Etc. 
1350 Name, Address, Etc. 



Customer Number 
(Chained Field) 



Figure 87. Using Chaining to Process an Indexed-Sequential File 



RANDOMLY PROCESSING MULTIPLE INPUT FILES 
(CHAINING) 



To understand chaining, assume that a 
sequential input file, as shown in Figure 
87, contains information about transac- 
tions made with several customers. The 
card file contains the customer's number, 
but it does not contain his name, address, 
or balance. Another file called MASTCUST 
(Master Customer File) contains informa- 
tion about each customer. The RPG object 
program has the ability to use the second 
file, when preparing a customer report. 

The master customer file has Indexed 
Sequential Organization, and it is to be 
processed randomly- The record key in 
each disk record contains the customers* 
numbers. The field in the transaction 
file, which contains the customer's num- 
ber, can be used to chain the files 
together. The object program takes the 
customer* s number and locates the record 
with the same record key. The additional 
information, such as the customer's name, 
address, balance, etc. , is associated with 
each record key, and it is immediately 
available for processing. 



The field which links or chains a 
record of one file to a record in another 
file is called a chaining fiel d. The 
transaction file (CARDIN) is called the 
chaining file because it links to the 
chained file. The master customer file 
(MASTCUST) is the chained file because it 
is linked to the transaction file. 



Up to three chaining fields may be 
specified for a record. The chaining 
fields are designated by entering CI, C2, 
or C3 in columns 61-62 of the Input Speci- 
fication sheet. 



Note : There is no specific relation- 
ship between levels CI, C2, or C3 
other than specifying the three possi- 
bilities for chaining fields. 

Figure 88 illustrates coding used for 
chaining the transaction file CARDIN to 
the customer file MASTCUST. On the File 
Description Specification sheet, the card 
file is considered the primary file. When 
CARDIN is depleted, the program goes to 
the end-of-job routine (E in column 17). 
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Figure 88. Specifying Chaining 
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The File Extension Specification sheet 
contains the record sequence of the CARDIN 
file and the number of the chaining field. 
On the Input Specification sheet, the two 
files are defined. CUSTNO is the field 
which chains the files. CUSN01 is the key 
field on disk, having a starting location 
of 31 (as denoted in columns 37-38 of the 
File Description Specification sheet). 



When chaining is used, the following 
situation may occur. A chaining record 
(for example, JONES) has no corresponding 
chained record. (JONES is not present in 
the chained file. ) Such a situation may 
require special action by the program. 



Indicators 01 and 02 are both on when 
chaining record has a corresponding 
chained record. In this case 01 rep- 
resents the chaining record, and 02 rep- 
resents the chained record. When 01 and 
02 are both on, AMPTD is subtracted from 
BALA.NC. However, if there is no corres- 
ponding record in the chaining file 
(01N02), halt indicator HI is turned on. 
Thus, the possibility of not having a 
corresponding record in the chained file 
is accounted for, and processing will 
terminate when this situation occurs. 



Chaining /" 

File f 




Salesman Customer 

File File 



Figure 89. Chaining to Two Files 

In Figure 90, the card file is chained 
to the customer file. Within each custom- 
er record is a field which may be used to 
chain to another file. In this case, each 
record in the customer file contains an 
account number. The account number is 
used to chain to the account file. 



Note : This example illustrates the 
only time that two resulting indica- 
tors (representing two different 
record types) can be on at the same 
time. 



Figure 8 9 and 90 show two additional 
uses of chaining. In Figure 89, the card 
file contains two fields which are both 
used as chaining fields (salesman number 
and customer number). The field contain- 
ing salesman number is chained to a file 
that is organized by salesman number. The 
field containing the customer's number is 
used to chain to the customer file. 
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160 
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Cust. 

No. 

151 






Figure 90. Using a Chained File as a 
Chaining File 



Split Chaining Fields 



Several fields that are not in adjoining 
positions in an input record can be speci- 
fied as one chaining field. The fields 
are specified with the same chaining code 
(CI for example) on the Input Specifi- 
cation sheet, and the fields are then used 
as one chaining field. The first field 
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defined on the input sheet is placed in 
the high-order position, and the last 
field is placed in the low-order position. 
The fields are placed in the same sequence 
as they are defined on the Input Specifi- 
cation sheet. 



CREATING RECORD ADDRESS FILES (RAF) 



3. The length of the field must be the 
same for all records. The numeric 
fields must always be unpacked. 

4. The number of field entries in a 
record may vary. A blank field, which 
is equal in length to the record- 
address field, will cause the RPG 
program to read the next record in the 
RAF. 



GENERAL INFORMATION 



A record- address file is one of the ways 
by which the necessary information to 
retrieve records from nonsequential files 
is supplied to the RPG program. Two types 
of record-address files may be used: 

1. For random processing of a file with 
Indexed" Sequential organization or a 
file with direct organization. 

2. For sequential processing between 
limits of a file with Indexed- 
Sequential organization. 

Only one RAF may be specified for an 
RPG program., An RAF is processed 
sequentially, and it must be on a file 
with sequential organization. An RAF is 
described on the file description sheet 
and the file extension sheet, but it is 
not described on the input sheet. 



PROCESSING LIMITS OF AN INDEXED SEQUENTIAL 
ORGANIZATION 



When a RAF is used to indicate what limits 
of an Indexed Sequential Organization are 
to be processed, the following rules must 
be observed: 

1. Only two record address entries can be 
in each record. 

2. The record address entry must begin in 
position 1 of the record. The first 
entry indicates the low limit of the 
file to be processed. The second 
entry indicates the upper limit of the 
file. The program will process from 
the lower limit to the upper limit. 

3. The second entry of the record must 
begin in the position immediately 
following the first entry. No blank 
spaces are allowed. 



RANDOM PROCESSING OF INDEXED OR DIRECT 
ORGANIZATION 



These rules must be followed when creating 
a RAF for random processing: 

1. For an Indexed Sequential Organiza- 
tion, the field will contain the 
record key. For a direct organiza- 
tion, each entry in the RAF must con- 
sist of a field to be converted to the 
track address, and either the record 
Key or the record ID. 

2. The record addresses must begin in 
position 1 of the record. 



MULTIPLE FILE PROCESSING 



RPG will process multiple files two ways: 

1. Sequentially - by using the matching 
record technique 

2. Randomly - by using the chaining 
technique 

Figure 91 shows the processing possi- 
bilities for files which have Sequential, 
Indexed Sequential or Direct Organization. 
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From — ^^ 


Sequential Organization 


Indexed Sequential Organization 
(DASD) 


Direct Organization 
(DASD) 


Sequential 
Organization 


Sequential Processing 
(Matching) 


Sequential Processing 

(Matching) 
or 
Random Processing 

(Chaining) 


Random Processing 
(Chaining) 


Indexed- 
Sequential 
Organization * 


a 

Sequential Processing 
(Matching) 


Sequential Processing a 

(Matching) 
or 
Random Processing 

(Chaining) 


Random Processing 
(Chaining) 


Direct (DASD) 
Organization + 


— 


Random Processing 
(Chaining) 


Random Processing 
(Chaining) 



* A Record Address File may be used to supply the limits (in the case of sequential processing) or the 

actual Record Keys (in the case of random processing). 
O The From File must be specified as sequential. 
+ A Record Address File is converted to supply the record locations on the DASD. 

Figure 91. Processing Multiple Input Files 



A sequential organization is processed 
sequentially and controls the processing 
of records in: 

1. Another Sequential Organization. Both 
files are processed sequentially, 
using matching records to govern proc- 
essing. 

2. An Indexed-Sequential Organization. 

If the file is processed sequentially, 
the matching-record technique is used 
to control processing of the Indexed 
Sequential File. If the file is proc- 
essed randomly, chaining fields in the 
sequential file specify which records 
in the Indexed Sequential Files are to 
be processed. 

3. A Direct Organization. A direct 
organization will be processed random- 
ly, under control of the sequential 
file. The sequential file will con- 
tain chaining fields which will be 
converted to the record locations on 
the Direct File. 



Note : In all three cases, the Sequen- 
tial Organization will be processed 
sequentially. 



An Indexed-Sequential Organization may 
be processed sequentially or randomly, and 
it controls processing of records in: 



1. A Sequential Organization. The 

records in both files will be proc- 
essed sequentially, using matching 
records to control processing. 



2. Another Indexed-Sequential Organiza- 
tion. If the file is processed 
sequentially, matching records are 
used to control processing. (Both 
files are processed sequentially.) If 
the file is processed randomly, chain- 
ing fields will be used to control 
processing. 
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3. A Direct Organization* Chaining 
fields in the indexed file are con- 
verted to supply the record locations 
in the direct file which will be proc- 
essed. The direct file is processed 
randomly. 

A direct organization is processed 
randomly and controls processing of 
records in: 

1. An Xndexed-sequential Organization. 
The indexed file is processed random- 
ly, and chaining fields in the direct 
file control processing of the indexed 
file. 

In both cases, the direct organiza- 
tion is processed randomly. 

2. Another Direct Organization. Chaining 
fields contained within the direct 
file are converted to provide the 
location of the records in another 
direct organization. The records in 
both files are processed randomly. 
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RPG SO0RCE DECK ARRANGEMENT 



The source deck prepared by the programmer 
will be arranged as shown in Figure 92. 
The contents of the basic operating system 
Job Control statements are listed in the 
programmer's guide listed on the front 
cover of this publication- 



Processor 

Control Card 

Column Contents 



1-5 XXXXX 

6 H 



rz 



Output-Format 
Specifications 



Calculation 
Specifica tions 



Input Specifications 



File Extension 



File Description 



RPG Control Card 



Basic 

Operating System 

Job Control Statements 



7-9 



10 



008, 016, 
032, 064 



or blank 






• Figure 92. RPG Source Deck Arrangement in 
the Basic Operating System 
Input Stream 



The order in which the programmer plac- 
es his source deck is as follows: 



1. Basic Operating System Job Control 
Statements 

2. RPG Control Card (Processor Control 
Card) 

3. File Description Specifications 

4. File Extension Specifications 

5. Input Specifications 

6. Calculation Specifications 

7. Output-Format Specifications 

8. End-of-File Card 

The contents of the RPG control card 
follow. 



11 



D, B, 
or blank 



Page and Line numbers. 

Identifies the card as a 
header card. 

Size of Generating 
Machine (8K, 16K, 32K, 
or 64K). This entry 
must not exceed the main 
storage capacity. 

Enter a P if the 
object program deck is 
to be punched in cards 
(Compile-Only option) . 
Enter an R if the object 
program is to be written 
in the relocatable 
library (permanently) 
and executed immediately 
following compilation 
( Compile- and-Execute 
option). Leave blank if 
the object program is to 
be written in the relo- 
catable library 
(temporarily) and exe- 
cuted immediately fol- 
lowing compilation 
(compile-* and- Execute 
option). 

Note : RPG does not 
check to determine if 
the phase name has been 
previously cataloged in 
the relocatable library. 
Therefore, if the user 
wishes to recatalog the 
object program at 
another time, he must 
first delete the pre- 
vious entry. 

Type of RPG run. 
Punch a D if a listing 
is to be produced and no 
compilation. Punch a B 
if a listing is to be 
bypassed and the compi- 
lation is to be per- 
formed. (Bypass Listing 
option) . Leave this 
column blank for both a 
listing and a compila- 
tion. 



12-14 008, 016, Size of Object 
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032, 064 Machine <8K, 16K, 32K, 
or 6 UK). 



21 



I or 
blank 



Inverted Print, 



It 



15-16 Blank 



Leave these columns 
blank. 



17 1, 2, or If the Sterling Shill- 
blank ings Field On Input is 

in the IBM format, punch 
1 in this column. If it 
is in the BSI format, 
punch 2. Otherwise 
leave blank. 



18 1, 2, or If the Sterling- Pence 

blank Field on Input is in the 
IBM format, punch 1. If 
it is in the BSI format, 
punch 2. Otherwise, 
leave blank. 



19 0, 1, 2, If the Sterling-Shill- 
or blank ings Field on Output is 
in the printer format, 
punch 0. If it is in 
the IBM format, punch 1« 
If it is in the BSI 
format, punch 2. Other- 
wise, leave blank. 



20 0, 1, 2, If the Sterling-Pence 
or blank Field on Output is in 
the printer format, 
punch 0„ If it is in 
the IBM format, punch 1. 
If it is in the BSI 
format, punch 2. Other- 
wise leave blank. 



22-25 Blank 



26 



A, or 
blank 



27-74 blank 



75-80 XXXXXX 



numeric literals and 
edit words use the Euro- 
pean conventions of 
punctuation (commas for 
decimal point and 
vice-versa) , enter an I 
in this column. Other- 
wise leave blank. 

Leave these columns 
blank. 

Alternate Collating 
Sequence . Enter an A in 
this column, if an 
external subroutine is 
used to translate the 
sequence of a matching 
field to the collating 
sequence of the 
System/360. If an 
external translating 
subroutine is not used, 
leave this column blank. 

Leave these columns 
blank. 

Program Identification . 
Enter in these columns 
the program identifi- 
cation that will appear 
in the object program 
identification field. 
(See Note.) 



N ote ; Object program identification 
and the sequence number will be 
punched in each card of the object 
program deck. If the user specifies 
the program identification in the RP3 
Processor control card, XXXXnnnn will 
be punched in each card (XXXX = the 
first 4 characters of the program 
identification; nnnn = sequence numbe 
of the card) . If no program identif i 
cation is specified, RPGOnnnn will be 
punched in each card. 

Although only the first 4 characters 
of the program identification appear- 
ing in columns 75-80 will be punched 
in the object deck, all 6 characters 
constitute the module name if the 
object program is cataloged in the 
relocatable library. 
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VARIABLE-LENGTH RECORDS 



UNBLOCKED RECORDS 



BLOCKED RECORDS 



The format of a variable- length unblocked 
record is as follows: 



The format of a variable-length blocked 
record is as follows: 



r t t 1 

I BL J RL | DATA RECORD j 
I L J. j 



r T T T T 1 

I BL j RL | DATA RECORD j RL j DATA RECORD j 
l L ± J. X J 



where BL is the block length and RL is the 
record length- Each physical record con- 
tains one data record and 2 four- character 
fields, one containing the block length 
and one containing the record length. 
Figure 93 illustrates a segment of a file 
of variable-length unblocked records 
(VARUBLK) . Data Record 1 contains 53 
characters, has a record length of 57, and 
a block length of 61. However, when spec- 
ifying these lengths, the user is con- 
cerned only with the length of the data 
record. The four-character record- length 
field and block-length field are not con- 
sidered. In the File Description Specifi- 
cation sheet, the data record length of 
the largest physical record in the file is 
specified for both record length and block 
length. In Figure 95, 100 is specified 
because the largest data record in VARUBLK 
is Data Record 2, which contains 100 char- 
acters. Figure 96 illustrates the coding 
required in the Output-Format Specifi- 
cation sheet for the variable-length 
unblocked record file VARUBLK. 



where BL is the block length and RL is the 
record length. A physical record contains 
one or more data records, each having a 
corresponding record-length field. Figure 
94 illustrates one physical record in a 
file of variable- length blocked records 
(VARBLK) . This physical record contains 
three data records, having lengths of 53, 
100, and 31 characters. (Assume that this 
physical record is the largest in the file 
VARBLK.) The total number of characters 
is 184, which is placed in Block Length 
(columns 20-23) in the File Description 
Specification sheet as illustrated in 
Figure 95. The maximum length of any data 
record within the file is 100, which 
appears in Record Length (columns 24-27). 
If the filename in Figure 96 were changed 
to VARBLK, the coding illustrated would be 
equally applicable to the blocked file. 



Physical Record 



Physical Record 



Physical Record 



VARUBLK 



BL 



RL 



@@ 



Data Record 1 



BL 



RL 



Data Record 2 
(100) 



BL 



RL 



Data Record 3 

67) 



® ® 



108) (104 



Figure 93. Variable-Length Unblocked Records 



Physical Record 



VARBLK 



BL 



RL 




Data Record 1 



RL 



Data Record 2 

(100) 



RL 



Data Record 3 



Figure 94. Variable- Length Blocked Records 



132 



IBM 



INTERNATIQN 

REPORT PROGRAM GENER 



Dot* 

Progr< 

Progrc 









£ 



6 




















Fib Typ» 






















Aod« of Processing 


Una 
3 4 5 


Filename 

7 8 9 10 1 1 12 13 14 




Of 

28 




o 

15 




: ib Designation 




Addren Field 


a. 
16 




End of Fib 


29 30 




[•cord Ad 


E 

17 




Sequtnc* 


31 


Type o 


3 

■< 

IS 




'll« Format 


a 

32 


Overfl 


> 

19 


Block 
Length 

20 2) 22 23 


Rtcord 
Length 

24 25 26 27 


33 34 


4 


t 


4 


F 


Vi 


A 


R 


U 


& 


L 


K 













V 




1 


4> 


rf 




1 





rf 
















4 


2, 


t 


F 


V 


A 


R 


6 


L 


K 















V 




i 


8 


4 




1 


* 


f 



















3 




F 



























































• Figure 95. 



Example of Block Lengths and 
Record Lengths of Variable- 
Length Records 



Note : Within RPG, any reference to 
the record length refers to the length 
of the data record, and does not 
include the block- length or the 
record-length fields. This also 
applies when specifying the end posi- 
tion in the output record. In columns 
40-43 of the Output-Format Specifi- 
cation sheet, the position in the data 
record is specified without reference 
to the record- length field. 
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DIAGNOSTICS 



The Basic Operating System RPG diagnostic messages to the programmer appear in the fol- 
lowing listing. The abbreviated specification types appearing within parentheses (FDS, 
FES, IS, CS, and OF) refer to the RPG specification sheet on which the erroneous entries 
were made (File Description, File Extension, Input, Calculation, and Output- Format, 
respectively) - 



r t 

I NOTE 



8 

9 

10 

11 
12 
13 
14 
15 
16 

17 



CAUSE OF ERROR 



The File Type entry (FDS, column 15) is not I,0,U, 
or C, or is blank. 

The Mode of Processing entry (FDS, column 28) is 
invalid for disk device. 

The Length of Record Address Field entry (FDS, 
columns 29-30) is invalid or is blank. 

The Record Address Type entry (FDS, column 31) is 
not K or I. 

The File Designation entry of I (FDS, column 16) 
requires an entry in Extension Code (FDS, column 
39). 

The File Designation entry (FDS, column 16) is not 
P,S t R,C, or T for the input file. 

The Overflow Indicator entry stated (FDS, columns 
33-34) is invalid without a printer device. 

The File Type entry stated (FDS, column 15) is 
invalid with a printer device. 

Multiple primary files are stated. 

The Label Indicator entry (FDS, column 53) is not 
N,S,E, or blank for this tape file. 

The Type of File Organization entry (FDS, column 
32) is not I,D,T, or blank. 

The Extension Code entry (FDS, column 39) is not 
blank for an output file. 

The End of File entry (FDS, column 17) is not E or 
blank. 

The Seguenc e entry (FDS, column 18) is not A, D, 
or blank. 

The File Designatio n entry (FDS, column 16) is not 
blank for an output file. 

The C entry in File Type , (FDS, column 15) 
requires a card device entry in Device (FDS, 
columns 4 0- 4 6 ) . 

A Record Address File requires an entry in Exten- 
sion Code (FDS, column 39). 



RESULT 



I is assumed. 



Blank is assumed. 



08 is assumed. 
I is assumed. 
E is assumed. 

S is assumed. 
Blanks are assumed. 



O is assumed. 

Secondary file is assumed. 
S is assumed. 

Blank is assumed. 



Blank is assumed. 



E is assumed. 
A is assumed. 
Blank is assumed. 



READ42 is assumed. 



E is assumed. 
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18 | The File Format entry (FDS, column 19) is not F or 
V. 



19 | The Block Length entry (FDS, columns 20-23) is 
not a numeric entry or is not right- justified. 



20 | The Record Length entry (FDS, columns 24-27) is 
invalid or is not right- justified. 

21 I The U entry in File Type (FDS, column 15) requires 
a disk device entry in Device (FDS, columns 
40-46). 

22 I An End of File entry (FDS, column 17) and a 
Seguence entry (FDS, column 18) are invalid with a 
printer device. 

23 | Columns 28-32 (FDS) are not used with an output 
file. 

24 j More than two secondary files are specified. 



25 I The Overflow Indicator entry (FDS, columns 33-34) 
invalid. 

26 | The Labels entry (FDS, column 53) is incompatible 
with the device specified. 

27 | The End of File entry (FDS, column 17) is not 
blank for an input file. 

28 | The disk device entry in Device (FDS, columns 
40-46) requires an S or E entry in Labels (FDS, 
column 53). 

29 | The Extension Code entry (FDS, column 39) is not E 
or blank for an input file. 

30 1 The From Filename entry (FES, columns 11-18) is 
not present or is not left- justified. 

31 | The From Filename entry (FES, columns 11-18) is 
not defined. 

32 | The From Filename entry (FES, columns 11-18) is 
improperly defined. 

33 I Number of the Chaining Field entry (FES, columns 
9-10) is not CI, C2, or C3. 

34 | The Record Sequence entry (FES, columns 7-8) is 
invalid. The positions are neither both numeric 
nor both alphabetic. 

35 1 The To Filename entry (FES, columns 19-26) is not 
present or is not left- justified on RAF or Chain- 
ing type specifications. 

36 | The To Filename entry (FES, columns 19-26) is not 
defined on RAF or Chaining type specifications. 

37 | The To Filename entry (FES, columns 19-26) is 
improperly defined on RAF or Chaining type speci- 
fications. 



V is assumed. 



The entry in 
Record Length 
(FDS, columns 
24-27) is assumed. 



0080 is assumed. 



DISK is assumed. 



Blanks are assumed. 



Blanks are assumed. 



Additional card(s) not 
processed. 

Blanks are assumed. 



Blank is assumed. 



Blank is assumed. 



S is assumed. 



E is assumed 



Card not processed. 



Card not processed. 



Card not processed. 



Card not processed. 



Card not processed. 



Card not processed. 



Card not processed. 



Card not processed. 
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38 
39 

40 
41 
42 
43 
44 
45 

46 
47 
48 
49 
50 
51 
52 

53 

55 

56 
57 

60 
61 

62 
63 



columns 33-57 are not all blank on the Chaining 
type File Extension entry. 

columns 7-10 are not all blank on the RAF type 
File Extension entry. 

Columns 33-57 are not all blank on the RAF type 
File Extension entry. 

columns 7-10 are not all blank on the Table type 
File Extension entry. 

The To Filename entry (FES, columns 19-26) is not 
left- justified on a Table type specification. 

The To Filename entry (FES, columns 19-26) is not 
defined on a Table type specification. 

The To Filename entry (FES, columns 19-26) is 
improperly defined on a Table type specification. 

The Table Name entry (FES, columns 27-32 and/ or 
columns 46-51) is not present or is not left- 
justified. 

The letters" TAB are not present in columns 27-29 
arid/or columns 46-48. 

The Number of Table Entries Per Record entry (FES, 
columns 33-35) is not numeric. 

The Number of Table Entries Per Table entry (FES, 
columns 36-39) is not numeric. 

The Length of Table Entry entry (FES, columns 
40-42 and/or columns 52-54) is not numeric. 

The Packed entry (FES, column 43 and/or column 55) 
is not P or blank. 

The Decimal Pos . entry (FES, column 44 and/or 
column 56) is not blank or a numeric digit. 

The Sequenc e entry (FES, column 45 and/or column 
57) is not A, D, or blank. 

The Form Type entry (FES, column 6) is not E. 

The Name of Label Exit entry (FDS, columns 54-59) 



is invalid. 



"7^ 



/ 



columns 60-65 (FDS) are not all blank. 

The Name of Label Exit entry (FDS, columns 54-59) 
must be blank unless the Labels entry (FDS, column 
53) is N or E. 

No RPG Processor Control Card. 

column 11 of RPG Control Card does not contain D, 
B, or blank or is invalid. 

The machine size (RPG Control Card, columns 7-9 
and/or columns 12-14) is not 008, 016, 032, or 
064, or is invalid. 

Columns 17-20 of RPG Control Card contain invalid 
entries. 



columns 33-57 are ignored. 



Columns 7-*10 are ignored. 



Columns 33-57 are ignored. 



Columns 7-10 are ignored. 



Blanks are assumed. 



Blanks are assumed. 



Blanks are assumed. 



card not processed. 



Letters TAB are assumed. 



010 is assumed. 



0100 is assumed. 



008 is assumed. 



Blank is assumed. 



is assumed. 



Blank is assumed. 



Card not processed. 
Blanks are assumed. 



Blanks are assumed. 



Blanks are assumed. 



Blank is assumed. 



008 is assumed. 



Blanks are assumed. 
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64 I column 21 of RPG Control Card does not contain I 
or blank. 



65 j Column 26 of RPG Control Card does not contain A 
or blank. 

66 | Column 10 of the RPG Control Card does not contain 
P, R, or blank. 

67 | columns 70-80 of the RPG control Card is blank or 
invalid. 



71 1 The Result Field entry (CS, columns 43-48) is 
required but is not present. 



72 | The Result Field entry (CS, columns 43-48) should 
be blank for this operation. 

73 | The Factor 1 entry (CS, columns 18-27) is required 
but is not present. 

74 | The Factor 2 entry (CS, columns 33-42) is required 
but is not present. 

75 | The Resulting Indicators entry/ entries (CS, 
columns 54-59) is/are invalid. 

76 I The Factor 1 entry (CS, columns 18-27) should be 
blank for this operation. 

77 j The Factor 2 entry (CS, columns 33-42) should be 
blank for this operation. 

78 I Column 7 of Control Level (CS, columns 7-8) does 
not contain L or blank. 

79 I All Detail calculations must precede all Total 
ca 1 cula ti ons . 

80 I The Factor 1 entry (CS, columns 18-27) is not 
left- justified. 

81 | The Factor 2 entry (CS, columns 33-42) is not 
left- justified. 

82 | The entry in Factor 1 (CS, columns 18-27) is an 
improperly stated literal or field name. 

83 I The entry in Factor 2 (CS, columns 33-42) is an 
improperly stated literal or field name. 

84 I The Factor 1 entry (CS, columns 18-27) is a 
field name of more than six characters. 

85 j The Factor 2 entry (CS, columns 33-42) is a 
field name of more than six characters. 

86 I The Operation entry (CS, columns 28-32) is not 
present or is invalid. 

89 I The Result Field entry (CS, columns 43-48) is 
invalid. 



Blank is assumed 



Blank is assumed. 



P is assumed. 



Program name RPGO is assumed. 
If R is specified in column 
10, blanks are assumed. 

****** i n columns 43-48. 



015 in columns 49-51, 
in column 52, 
and blank in column 53 
are assumed. 

Blanks are assumed. 



Literal 1 is assumed. 



Literal 1 is assumed. 



00 is assumed. 



Blanks are assumed. 



Blanks are assumed. 



Blank is assumed. 



L0 is assumed. 



Literal 1 is assumed. 



Literal 1 is assumed. 



Literal 1 is assumed. 



Literal 1 is assumed. 



The first six characters are 
assumed. 

The first six characters are 
assumed. 

The MOVE operation code is 
assumed. 

****** i n columns 43-48 



015 in columns 4 9-51 
in column 52, 
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94 I The Field Length entry (CS, columns 49-51) is 
neither blank nor numeric, or is not right- 
justified. 

95 I The Decimal Position entry (CS, column 52) is not 
blank or numeric. 

96 I The Half Adjust entry (CS, column 53) is not H or 
blank. 

97 | A r esulting indicator is required for this 
operation. 

98 I The Indicators (CS, columns 9-17) entry (s) 
is invalid. 

109 | Input and/or output specifications are missing or 
are invalid. 

110 | Form Type (column 6) is not I, C, or O and column 
7 does not contain *. 

111 I The Filename entry (IS, columns 7-14) is not in 
the filename table. 

112 | The Filename entry (IS, columns 7-14) is not 
correctly defined on the File Description Specifi- 
cation sheet. 

113 | AND card out of sequence (first in deck, after 
field name, or invalid file type) . 

114 | No entries in Record Identification Codes (IS, 
columns 21-41) in card preceding the AND card. 

115 j OR card out of sequence (first in deck, after 
field name, or invalid file type) . 

116 | The Filename entry (IS, columns 7-14) is not left- 
justified. 

117 | The entry in Filename (IS columns 7-14) begins 
with a numeric character. 

118 | Entries in Filename (IS, columns 7-14) and in 
Field Name (IS, columns 53-58) are both present. 

119 j The Sequence entry (IS, columns 15-16) is blank. 

120 J The sequence is descending and alphameric sequence 
is found after numeric sequence. 



121 j Descending numeric sequence is found. 



122 j Sequence is numeric and Number entry (IS, column 
17) does not contain N or 1. 

123 I Sequence is numeric and the Option entry (IS, 
column 18) is not O or blank. 

124 | The input record Resulting Indicator entry (IS, 
columns 19-20) is blank. 



and blank in column 53 
are assumed. 



015 is assumed. 



is assumed. 



H is assumed. 



00 in columns 58-59 
are assumed. 

00 in columns 10-11 
is assumed. 

Job is terminated. 



Card not processed. 



Card not processed. 



Card not processed. 



Card not processed. 



Card not processed. 



Card not processed. 



Card not processed. 



Card not processed. 



The Filename entry is assumed. 



AA is assumed. . 

The numeric sequence equal 
to the previous numeric 
sequence is assumed. 

Sequence equal to previous 
numeric sequence is assumed. 

N is assumed. 



O is assumed. 



00 is assumed. 
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125 I The Stacker Select entry (IS, column 42) is not 1, 
2, or blank. 

126 j An invalid input file has been specified. 

127 | The entry (s) in Position (IS, columns 21-24, 
28-31, or 35-38) contains a nonnumeric character. 

128 j The Not entry (IS, column 25, 32, or 39) is not N 
or blank. 

129 | The C/Z/D entry (IS, columns 26, 33, or 40) is not 
C, Z, or D. 

130 I Field name type specification out of sequence 
(first in deck, after invalid file name, or AND/ OR 
specifications) . 

131 | The Field Name entry (IS, columns 53-58) is not 
left- justified. 

132 | The Field Name entry (IS, columns 53-58) begins 
with a numeric character. 

133 | The From entry (IS, columns 44-47) and/or the To 
entry (IS, columns 48-51) is blank. 

134 | The From entry (IS, columns 44-47) and/or the To 
entry (IS, columns 48-51) contains a non-numeric 
character. 

135 I The input field length ( From and To columns 44-51) 
is less than 1. 

136 | Packed input field length ( From and To, columns 
44-51) is greater than 8. 

137 | The Packed entry (IS, column 43) is not P or 
blank. 

138 I The Decimal Positions entry (IS, column 52) is not 
numeric or blank. 

139 I The numeric field is greater than 15 bytes in 
length. 

140 | The Control Level entry (IS, columns 59-60) does 
not contain an L in column 59. 

141 | The Control Level entry (IS, columns 59-60) does 
not contain a numeric character in column 60. 

142 I Column 61 (IS) does not contain C or M. 

143 | The Matching Fields or Chaining Fields entry (IS, 
columns 61-62) is not numeric. 

144 ] The Matching Fields entry (IS, columns 61-62) 
contains a matching value greater than 3. 

145 | Columns 65-68 (IS) contain numeric indicators for 
a nonnumeric field. 

146 | The alphameric field is greater than 256 bytes in 
length. 

147 j A Sterling field is indicated with a decimal 
position greater than 3. 



Blank is assumed. 



No immediate action taken, 

is assumed. 

N is assumed 

C is assumed. 

Card not processed. 

Card not processed. 
Card not processed. 

0001 is assumed. 



is assumed. 

Field length of 1 is assumed. 
Field length of 8_ is assumed. 
P is assumed. 

is assumed. 

Field length of 1J5 is assumed. 
L in column 59 is assumed. 

1 is column 60 is assumed. 

M is assumed. 
01 is assumed. 

03 is assumed. 

Indicators are ignored. 

Length of 256 is assumed. 

3 is assumed. 



* 140 



148 



149 



150 



1 151 

II 

1 159 



160 

161 
162 



1163 

I 
1164 

I 
1 

1 165 

I 
I 

1 166 

I 
I 
1167 

I 
I 
|168 

I 
I 
|169 

I 

I 

1 170 

I 

1 171 

I 
I 
I 
J172 

I 
I 
1173 

I 

I 

1 174 

1 
I 
|175 

I 
I 

1 176 

I 

I 

1 177 

I 

I 
1178 



A Sterling field is indicated without a decimal 
position specified. 



Record identification specification is out of 
order, or no fields are indicated for a given 
record. 

No D ecimal Position is indicated for a packed 
input field. 

Column has been indicated. 

A field name beginning with TAB is not a table 
name. 

The Form Type entry (Column 6) should be O. 

The specification type cannot be determined. 

The Filename entry (OF, columns 7-14) is invalid, 
not present, or undefined. 

The H/D/T, entry (OF, column 15) is out of order. 

The Type H/D/T entry (OF, column 15) is not H, D, 
or T. 

The Output Indicators entry (OF, columns 23-31) is 
not present in an OR- relations hip. 

The Output Indicator s entry (OF, columns 23-31) is 
not present in an AND- relationship. 

Columns 32-70 (OF) contain entries, but should be 
blank. 

The Field Name entry (OF, columns 32-37) is not 
left- justified. 

The Output Indicators entry (OF, columns 23-25, 
26-2 8, or 29-31) contain an invalid indicator. 

The OR card or the AND card is out of order. 

Field type specification, when column 15 is blank, 
is not preceded by a valid record identification 
specification. 

Columns 7-22 (OF) contain entries, but should be 
blank. 

Leading and/or closing quote signs in column 45 
and 70 (OF) are not present. 

The Zero Suppress entry (OF, column 38) contains 
an invalid or incorrectly used entry. 

The Blank After entry (OF, column 39) contains an 
invalid or incorrectly used entry. 

The Packed Fiel d entry (OF, column 44) contains an 
invalid or incorrectly used entry. 

In the AND-relationship, columns 17-22 (OF) con- 
tain entries, but should be blank. 

The End Position in Output Record entry (OF, 



is assumed. 

No immediate action taken. 

is assumed. 

Column 1 is assumed. 
Card not processed. 

Card not processed. 
Card not processed. 
Card not processed. 

H is assumed. 
H is assumed. 

00 is assumed. 

Card not processed. 

Columns 32-70 are ignored. 

Card not processed. 

Blanks are assumed. 

Card not processed. 
Card not processed. 

Columns 7-22 are ignored. 
No editing is performed. 
Blank is assumed. 



Blank is assumed. 



Blank is assumed. 



Columns 17-22 are ignored. 



Card not processed. 
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columns 40-43) is not present, not numeric, or 
incompatible with literal or edit word. 

179 I The Constant or Edit Word entry (OF, columns 
45-70) does not contain the required leading 
and/ or closing quote signs. 

180 j The numeric Result Field entry (CS, columns 43-48) 
has a length greater than 15 bytes. 

181 | Incorrect alphameric or numeric field (s) have been 
specified for this Move Zone operation. 

182 | In the Alphameric Compare operation, field lengths 
greater than 40 must be equal. 

183 I The Result Field entry (CS, columns 43-48) con- 
tains an undefined field name. 

184 j The Field Name entry (IS, columns 53-58, or OF, 
columns 32-37) contains an unreferenced field 
name. 

1S5 I The Field Name entry (IS, columns 53-58; or OF, 

columns 32-37) contains a multidefined field name. 

186 | An arithmetic operation is specified in Operation 
(CS, columns 28-32) with an alphameric factor in 
Factor 1 (CS, columns 18-27), Factor 2 (CS, 
columns 33-42), or Result Field (CS, columns 
43-48). 

187 j A Compare operation is specified in Operation (CS, 
columns 28-32) comparing an alphameric field with 
a numeric field. 

188 | The result field length specified in Field Length 
(CS, columns 49-51) may be too small to contain 
the true result. 

189 I The entries in Factor 2 (CS, column 33-42) and 
Result Field (if specified) must be table names 
when the LOKUP operation code is used. 

190 | EXTCV is not followed by the required operation 
code (KEYCV) or is not specified properly. 

191 | In the TESTZ operation, a numeric field has been 
specified as the entry in Result Field (CS, 
columns 43-48). 

192 I The label of the TAG operation and the correspond- 
ing GOTO are not in Detail or Total calculations. 

193 I The Half- Adjust entry (CS, column 53) is incompa- 
tible with the result field decimal length. 

194 | The lengths of Factor 1 and Factor 2 are not equal 
for the LOKUP operation. 

195 I EXTCV operations must be the first to appear in 
the calculation specifications and no more than 4 
are allowed. 

196 | The MVR operation is not preceded by DIV opera- 
tion. 

197 j The DIV operation containing an entry in Half- 



Card not processed. 



Card not processed. 



Card not processed. 



Field length of 40 is assumed. 



Card not processed. 



No immediate action taken. 



No immediate action taken. 



Card not processed. 



Card not processed. 



No immediate action taken. 



Card not processed. 



KEYCV card not processed. 



Card not processed. 



No immediate action taken. 



Half-Adjus t entry is ignored, 



Card not processed. 



Card not processed. 



MVR operation is ignored. 



MVR operation is ignored. 
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Adjus t (CS, column 53) is followed by an MVR 
operation. 

198 I In the LOKUP operation, Factor 1 and Factor 2 are 
not both alphameric or both numeric fields. 

199 i HIGH and LOW resulting indicators are specified 
for the LOKUP operation. 

200 | No primary file is stated. 

201 | The Form Type entry does not contain F, E f C, or 
I. 

202 | The Filename entry (FDS, columns 7-14) is invalid, 

203 | More than 10 filenames specified. 

204 | The Filename entry CFDS f columns 7-14) is not 
referenced. 

205 I The Symbolic Device entry (FDS, columns 47-52) is 
invalid. 

206 I The Device entry (FDS, columns 40-46) is invalid. 

207 | The Filename entry CFDS, columns 7-14) is multi- 
referenced. 

208 I The file name is multidefined. 

212 1 Undefined Resulting Indicator. 

213 | Unreferenced Resulting Indicator. 

214 | The maximum number of indicators has been exceed- 
ed. 

219 | Undefined field name. 

220 | Conversion label unreferenced. 

221 I Sum of Matching Field lengths incompatible with 
other record type(s). 

222 | Table Name multidefined. 

223 | Matching field hierarchy violated. 

224 I Split Chaining Fields improperly specified. 

225 | Split Control Fields improperly specified. 

226 | Split Matching Fields are not permitted. 

227 | The Matching Field lengths are incompatible with 
other record type(s). 

|| 228 j The Control Field lengths are incompatible with 
other record type(s). 

1229 | The Chaining Field lengths are incompatible with 
other record type(s). 

| 230 | The sum of the Control Field lengths is greater 
j I than 256. 



Card not processed. 

LOW indicator is ignored. 

Job is terminated. 
Card not processed. 

Card not processed. 

Additional cards not 
processed. 

No immediate action taken. 

Job is terminated. 

Job is terminated. 

No immediate action taken. 

Card not processed. 
No immediate action taken. 
No immediate action taken. 
Job is terminated. 

Ho immediate action taken. 
No immediate action taken 
No immediate action taken. 

No immediate action taken. 
No immediate action taken. 
No immediate action taken. 
No immediate action taken. 
No immediate action taken. 
No immediate action taken. 

No immediate action taken. 

No immediate action taken. 

No immediate action taken. 
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231 | Field area exceeds record size. 

232 I Printer file record is blank in columns 17-22 
(OF). 

233 | The Stacker Select entry (OF, column 16) is inval- 
id. 

234 j The Space Before entry (OF, column 17) is invalid. 



235 j The Space After entry (OF, column 18) is invalid. 

236 I The Skip Before entry (OF, columns 19-20) is 
invalid. 

2 37 I The Skip After entry (OF, columns 21-22) is inval- 
id. 

238 | The field to be packed is not numeric. 

299 I The field to be zero- suppressed is not numeric. 

240 | The Sterling option is requested on a nonnumeric 
field. 

241 I Edit word is too small for the field. 

242 | The field to be edited is not numeric. 

243 | Both fixed and floating dollar sign have been 
specified. 

244 j Both CR and - used for CREDIT. 

245 I The output specifications are not present or are 
invalid for this program. 

246 j Page indicators are not numeric. 

247 | The field length is greater than the field End 
Position indicates. 



No immediate action taken. 



Space After of 1 is 



assumed. 

No immediate action taken. 

Space Before of 1 is 



assumed. 

1 is assumed. 

Blanks are assumed. 



Blanks are assumed. 



No immediate action taken. 
No immediate action taken. 
No immediate action taken. 

No immediate action taken. 
No immediate action taken. 
No immediate action taken. 

No immediate action taken. 
Job is terminated. 

No immediate action taken. 
No immediate action taken. 
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SAMPLE PROGRAMS 



Three complete sample programs are included 
in this section. 



SAMPLE PROGRAM ONE 



The input file in the first program con- 
sists of punched cards. Each card in the 
file contains a data record that includes 
from one to eighty characters of informa- 
tion. Each data record represents a purc- 
hase made from th€> reporting firm by a 
customer. The types of information and the 
card columns in which each appears are 
shown in Figure 97. Figure 98 gives the 
complete listing resulting from the proc- 
essing of this sample program. 



The labels assigned to the fields into 
which the object program will place the 
information are as follows: 



| Field | Label | 



Customer Name 
Invoice Date - Month 
Invoice Date - Day 
Invoice Number 
Customer Number 
Customer Location 
Customer Location 
Invoice Amount 



| NAME 
MONTH 
DAY 
INVNO 
CUSTNO 
STATE 
CITY 
INVAMT 



To produce an object program capable of 
writing the report shown in Figure 98 (Part 
3), the programmer must prepare a source 
program as shown in Figure 99. The entries 
in the RPG specifications sheet are des- 
cribed here. 
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Figure 97. Input File-Card Format 
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FILE DESCRIPTION SPECIFICATION SHEET 



Two files (Input and Output) are described 
on this sheet. The input file INPUT 
(columns 7-11) is the primary file (column 
16). It causes the end-of-job condition 
when it is depleted (column 17). The input 
records are fixed in length (column 19); 
the block length is 80 (columns 22-23); and 
the records are 80 characters in length 
(columns 26-27). 



page (IP) or overflow conditions (OF). The 
OR entered in columns 14 and 15 of the 
second line allows for printing on the 
first page or overflow. The other heading 
lines are to print on these conditions. 



when output indicator 01 is on, the 
field entered in Field Nam e will print in 
the positions indicated in columns 40-43. 
Zero suppression occurs on CUSTNO, STATE, 
CITY, INVNO, MONTH, and DAY. 



The output file OUTPUT is also defined 
on the file description sheet. The format 
is fixed length; the block length is 132 
and the records are 132 characters in 
length. The entry OF in columns 33-34 
indicate that the Output File defined on 
the line is to cause the overflow condi- 
tion. 



The total lines are to print whenever 
control fields LI or LR are on. The group 
total GRPTOT prints when LI is on, and 
after it is printed, the contents of GRPTOT 
are blanked out. The final total is print- 
ed when the LR (last record) indicator is 
on. 



INPUT SPECIFICATION SHEET 



The input file has a sequence of AA, and if 
column 1 contains the zone of a minus, 
resulting indicator 01 is turned on (as 
indicated by the entries in 19-20, 24, and 
26-27) . The locations of the fields which 
contain the input data are defined in 
columns 46-47. The names of the input 
fields are entered in columns 53-58. 
Whenever a new customer is read in, control 
level 1 is turned on (columns 59-10). 



SAMPLE PROGRAM TWO 



This is similar to the previous program. 
In this example, however, two input files 
are used. The Transaction File is a card 
file with fields as shown in Figure 96 of 
the previous program. Another input file 
(Master Customer File) , which is on tape, 
contains information about the firm's cus- 
tomers (Figure 100). The fields contained 
in the two input files follow: 



CALCULATION SPECIFICATION SHEET 



The contents of the field TOTAL are added 
to the contents of the field INVAMT, and 
the result is stored in TOTAL. The result 
field has a. length of eight positions, and 
two positions are reserved for the decimal 
portion. The field GRPTOT is added to 
INVAMT, and the result is stored in GRPTOT 
which is eight positions long, and has two 
decimal positions. 



Master Customer File 
(MASTERIN) 



Transaction File 
(TRANSIN) 




Process 

Matched 

Records 



OUTPUT-FORMAT SPECIFICATION SHEET 



OUTPUT is the name of the file to which the 
records defined on the line belong, and 
OUTPUT is entered under Filename on the 
first line of the sheet. In column 15 the 
output types H, D, and T are entered to 
designate the heading, detail, and total 
lines. 

The first heading line, ACCOUNTS RECEI- 
VABLE REGISTER, prints either on the first 



New Master Customer File 
(MASTEROT) 



Printed 
Report 



Figure 100. Sample Program Two 
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Transaction File 



Master Customer File 



H 











Card | 


Field 


I 


Label 


1 


Columns J 
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Code 


1 


Minus (-> 
Zone, or 
Plus (+) 
Zone 


1 


— 1 

i i 


Customer 




NAME 




8-29 | 


name 










Invoice 




MONTH 




30-31 | 


date 










Invoice 




DAY 




32-33 | 


date 










Invoice 
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CUSTNO 
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State 
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City 
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name 










Street 
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City 
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MASTAT 
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Customer 
balance 




MASBAL 
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Date of 

last 

payment 




PAYDAT 




71-76 j 


Date of 

last 

purchase 




PAYPUR 




77-82 | 



L ± i J 



The program is to process the master 
customer file, using records from the tran- 
saction file, to produce printed receipts. 
The master file is updated, by producing a 
new master customer file. The coding 
required for this program is shown in Fig- 
ure 101. 
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FILE DESCRIPTION SPECIFICATION SHEET 



The four files are defined on this sheet* 
The two input files TRANSIN and MASTERIN 
are defined, and the two output files MAST- 
EROT, which is the updated master file, and 
MASTLIST, which is the printed report, are 
defined on the file description sheet. 
TRANSIN is designated as the secondary file 
because it may not contain transactions 
involving all the customers on the master 
customer file. TRANSIN is ascending in 
order. It has fixed- length records which 
are 80 characters long. The block length 
is 8 0. 

MASTERIN is the primary file. If the 
transaction file does not have a corres- 
ponding customer number (specified by the 
matching fields specification on the input 
sheet) the master file is processed. Proc- 
essing continues until all the records in 
the master customer file have been proc- 
essed (indicated by the E in column 17). 
The input records contained in the master 
customer file are ascending in order, fixed 
in length, and have a block length of 300. 
Each record is 100 characters in length. 

Note ; A blank in column 53 indicates 
that there are no labels in the input 
file. 

The file MASTLIST is the printed report. 
The format is variable. The length of the 
records can be 132. The overflow entry in 
columns 33-34 indicate that the overflow 
condition is to occur on the MASTLIST prin- 
ter. 

The output file MASTEROT is a tape file 
which contains the updated master customer 
records. The output records are fixed in 
length, and are 100 characters in length. 
The block length is 300. 

Note ; A blank in column 53 indicates 
that there are no labels in the output 
file. 



(Column 42). The locations of the input 
records and their labels are defined in 
columns 46-58 of the sheet. 



The field CUSTNO (customer number) has 
entries in columns 59-60 (Control Level) 
and columns 61-62 (Matching Fields) of the 
Input Specification sheet. Whenever a new 
customer number is read in, control level 1 
(LI) is set on. This condition is tested 
on the output-format specification sheet to 
govern printing of total lines and to pro- 
duce the updated customer file. The entry 
in matching fields specifies that customer 
number will be used to match another field 
(MASNUM) in the MASTERIN file. 



The fields INVAMT and AMTPD contain 
entries in column 63-64. Entering 02 in 
this column indicates that whenever result- 
ing indicator 02 is on, the field INVAMT 
will be used for input data. Whenever 03 
is on, the field AMTPD will be used. 



The first card in the transaction file 
is a data card. It is assigned sequence 
BB. Whenever column 1 contains a D, indi- 
cator 04 is turned on. The date is con- 
tained in columns 2-5 of the card. 



MASTERIN ; The tape input file that con- 
tains information about the firm's custom- 
ers is assigned sequence AA. The first 
entry under field name defines the entire 
record. This entry (RECORD) is made to 
enable the entire record to be referenced 
on the Output-Format Specification sheet. 
MASNUM corresponds to CUSTNO in the tran- 
saction file. Whenever a new master number 
is read in, LI is set. The entry Ml indi- 
cates that the master number will be 
matched with the customer number in the 
transaction file. 



INPUT SPECIFICATION SHEET 



CALCULATION SPECIFICATION SHEET 



The two input files TRANSIN and MASTERIN 
are defined on the Input Specification 
sheet. 

TRANSIN: The input records may be obtained 
from three types of cards. Sequence AA has 
been assigned to two types. If card column 
1 contains the zone of a minus, resulting 
indicator 02 is turned on. If card column 
1 contains the zone of a plus, indicator 03 
is turned on. The cards that have a minus 
in column 1 are selected into the 2 pocket 



Whenever the matching record indicator MR 
is on and indicator 02 is on, the contents 
of the field INVAMT are added to the MAS- 
BAL. The result is stored in MASBAL. The 
date is moved to the field PAYDAT. 



Whenever the matching record indicator 
MR is on and indicator 03 is on, AMTPD is 
subtracted from MASBAL, and the result is 
stored in MASBAL. The date is moved to 
PAYPUR. 
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OUTPUT-FORMAT SPECIFICATION SHEET 



The output file MASTEROT is the updated 
tape file. The entries in output indica- 
tors allow for the following. Whenever 
conditions 01 and NMR are satisfied 
(resulting indicator 01 is on and no match- 
ing record is present) , the entire tape 
input record will be written out on tape. 
This condition results because there was no 
corresponding customer number in the tran- 
saction file for the master customer num- 
ber. 

To keep the master customer file com- 
plete, the old input record is written out 
on the updated tape file when no informa- 
tion is present in the transaction file. 

If, however, LI and MR are on, the input 
record is written out on tape. The entire 
record is written, but the fields MASBAL, 
PAYDAT, and PAYPUR contain the new entries 
based on the calculations. By coding the 
entries in this way, the new information 
for MASBAL, PAYDAT, and PAYPUR is entered 



on the master customer file, but the 
customer's name and address are retained. 

The specifications for the printed 
report are listed under the name of the 
output file MASTLIST. 



SAMPLE PROGRAM THREE 

The third sample program (Figures 102 and 
103) illustrates some of the more complex 
capabilities of PRG. 

1. Processing chained records on a Direct 
Access Storage Device (DASD) . 

2. Updating records on a DASD. 

3. Multiple input and output files. 

4. Creating exception records 

5. Providing for processing when a record 
in the chained file is missing. 
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Figure 103. Specifications for Sample Program Three (Part U of 4) 



file description specifications 



The primary input file, designated by a P 
in column 16, is on the card reader and is 
labeled CARDIN. This card file also acts 
as a transaction file for the updating of 
the inventory records contained on the file 
labeled INVFIL. The in column 15 of the 
specification for INVFIL indicates that 
this DASD file will be updated (used for 
both input and output). The file is organ- 
ized under direct access management, indi- 
cated by the D in column 32, and will be 
processed randomly as specified in column 
28. 



The E in column 17 of the CARDIN file 
description entry directs the program to 
end execution when the last record of the 
CARDIN file has been processed. The E in 
column 39 indicates that a file-extension 
specification has been coded for the CARDIN 
file. 



The output files are an exception card 
file labeled CARDODT and the printed tran- 
saction report labeled PRINTOUT. 

CARDIN and CARDOUT consist of 
80*-character records. INVFIL has a block 
length of 125 characters and a record 
length of 125 characters. Record length 
for PRINTOUT is variable, with a maximum of 
132 characters. 



FILE EXTENSION SPECIFICATIONS 



The file-extension sheet identifies CARDIN 
as the chaining file, indicating that 
record sequence CC contains the chaining 
field CI. INVFIL is the chained file and 
CONRTN is the RPG internal label of the 
specifications on the Calculation Specifi- 
cation sheet for the external conversion 
routine that processes the chaining field 
to obtain the track address in the DASD 
file. 
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INPUT SPECIFICATIONS 



OUTPUT SPECIFICATIONS 



The input card and DASD files are described 
on the Input Specification sheet. Each 
field that will be used is defined- The CI 
in columns 61-62 of the transaction card 
file designates the field labeled DTLPAR as 
the chaining field. The conversion routine 
CONRTN, indicated on the Calculation Speci- 
fication sheet, will make the DTLPAR field 
available to the user f s external conversion 
routine. 



CALCULATION SPECIFICATIONS 



Two sets of calculation specifications are 
described. After the label CONRTN, the 
operation code EXTCV is used to indicate 
that the conversion routine is to be per- 
formed. ADDCON is the symbolic address of 
the external conversion routine. Note that 
the address can be up to eight positions 
long. The external routine may be in the 
relocatable library so that it can be auto- 
matically retrieved by the Basic Operating 
System program. The routine could also be 
punched in cards that follow the RPG cards. 

The operation code KEYCV states that the 
record key can be obtained directly from 
the field DTLPAR. This is the first entry 
on the Calculation Specification sheet. 

The calculations in lines 030-070 
require the presence of matching chaining 
(CARDIN) and chained (INVFIL) records. 
This condition is indicated by the simulta- 
neous setting of resulting indicators 01 
and 03. The ONHAND field from the INVFIL 
record is reset added to a work area 
(SAVE). Data fields RECPTS and RETURN from 
CARDIN records are added to SAVE; ISSUES 
are subtracted. When each input card for 
an INVFIL record is processed, the result- 
ing new ONHAND field in SAVE is compared to 
the minimum balance. If ONHAND equals the 
minimum, resulting indicator 05 is set on. 
If ONHAND drops below the minimum, result- 
ing indicator 04 is set on. 



The PRINTOUT file's heading information can 
be printed under control of either result- 
ing indicator 02, which is set for the date 
card (the first card in the CARDIN file), 
or overflow (OF). The OF indicator will 
govern all heading printing after the first 
page. The entry PAGE in line 03 causes 
the page number to be updated automatically 
for each new page. 



The detail line described by the entries 
in lines 150 of Figure 103 (Part 3) through 
050 of Figure 103 (Part 4) requires the 
presence of both the CARDIN and INVFIL 
records (resulting indicators 01 and 03 
on) . If resulting indicator 04 is on, the 
words BELOW MINIMUM indicate the stock 
violation. If indicator 05 is on, the 
message EXPEDITE is added. 



The output line described in PRINTOUT 
entries 060-090 is the message printed when 
the error condition of a CARDIN record, and 
no corresponding INVFIL record occurs. 
This condition is identified by resulting 
indicator 01 being off when indicator 03 is 
on. 

The exception file CARDOUT will have a 
card punched for each transaction that 
results in a below-minimum or at-minimum 
stock level. These cards will contain the 
part number and description, vendor number, 
date, and the E or B code for EXPEDITE or 
BELOW MINIMUM. Below-minimum cards, iden^ 
tified by the simultaneous ON settings of 
indicators 01, 03, and 04, will be selected 
to stacker 4. At-minimum cards, with indi- 
cators 01, 03, and 05 on, will be selected 
into stacker 8. 

Lines 180 and 190 provide for the updat- 
ing and writing out of the INVFIL records. 
If indicators 01 and 03 are both on, indi- 
cating that the INVFIL record has been 
updated by a CARDIN transaction, the new 
ONHAND is moved into its INVFIL location 
from the work area SAVE, and the record is 
written. 
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APPENDIX A: INDICATOR CHART 



Indicators 


Where Specified 


Where Used 


Turned On 


Turned Off 


Notes 


Resulting Indicator 
00 


Internal 


Output Indicators on 
Output Specifications 
(Columns 24 - 25, 
27-28, 30-31) 


This indicator is always 
ON 


Can never be turned 
OFF 




Resulting Indicators 
(01-99) 


Input Specifications 
(Columns 19-20) 


Indicators on Calcula- 
tion Specifications 
(Columns 10-11, 13-14, 
16-17) 

Output Indicators on 
Output Specifications 
(Columns 24-25, 
27-28, 30-31) 


When specified record 
type has been read and 
is ready for processing . 


Before the first record 
is read on the next 
processing cycle. 


Turning OFF and ON can also 
be accomplished by using 
SETON and SETOF operation 
codes . 


Calculation Speci- 
fications (Columns 
54-55, 56-57, 
58-59) 


Same as above . 


Whenever the specified 
field status condition 
is satisfied . 


The next time that 
this field status is 
to be tested 


Same as above 


Field Indicators 
(01-99) 


Input Specifications 
(Columns 65-66, 
67-68, 69-70) 


Same as above 


Same as above 


Same as above 


Same as above 


Halt Indicators 
(HI - H9) 


Input Specifications 
(Columns 65-66, 
67-68, 69-70) 

Calculation Speci- 
fications (Columns 
54-55, 56-57, 
58-59) 


Same as above 


Same as above 


Can only be turned 
OFF by SETOF opera- 
tion code. See Note. 


If these indicators remain ON, 
the object program will term- 
inate before reading the next 
record . 


Control level 
Indicators 
(LI - 19) 


Input Specifications 
(Columns 59-60) 


Same as above and 
Calculation Specifi- 
cations (Columns 7-8) 


When the value in a control 
field changes. All indi- 
cators of the lower levels 
are also turned ON. 


Before the first record 
is read on the next 
processing cycle. 


Turning OFF and ON can be 
accomplished by using SETON 
and SETOF operation codes . 


LC 


Internal 


Indicators on Calcula- 
tions Specifications 
(Columns 10-11, 13-14, 
16-17) 

Output Indicators on Out- 
put Specifications (Cols. 
24-25,27-28,30-31) 


This indicator is always 
ON. 


Can never be 
turned OFF. 




LR 


Internal 


Same as above 


After processing the last 
record of the last f 1 le . 


Same as above 


All Control Level Indicators 
(L1-L9) are also turned ON 
when the LR is turned ON. 


MR 


Internal 


Same as above 


When multiple input files 
and the matching fields 
specification are used, this 
Indicator is turned ON if 
a secondary file record 
matches the primary file 
record. 


Before the first record 
is read on the next 
processing cycle. 




Overflow Indicators 
OA, OF, OV 


File Description 
(Columns 33-34) 


Same as above 


When Channel 12 of the 
carriage control tape is 
sensed . 


After the detail and 
heading records are 
written. 


These indicators remain ON for 
one complete processing cycle . 


IP 


Internal 


Output Indicators on 
Output Specifications 
(Columns 24-25, 27- 
28, 30-31) 


This indicator is ON at the 
beginning of processing 
before any records are 
read. 


Before the first record 
is read. 


This indicator is used to govern 
printing of the first page of the 
report. 



All indicators specified in columns 69 - 70 of the Input Specification sheet and columns 58 - 59 of the Calculation Specification sheet are ON at the beginning 
of processing before any records art; read. This is always the case except when the operation codes COMP, LOKUP, SETON, and SETOF are specified. 
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APPENDIX B: RPG LOGIC FLOW CHARTS 
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APPENDIX C: STERLING ROUTINES FOR THE REPORT PROGRAM GENERATOR 



The RPG sterling routines furnish users 
with a convenient and time-saving means of 
handling sterling amounts. The presence of 
sterling fields is indicated to the RPG 
program by additional entries in the input 
and output specifications forms and in the 
control card. The file description, file 
extension, and calculation forms are not 
affected. 

Sterling input information can be rep- 
resented in two formats: IBM and BSI as 
described in the control card. The RPG 
sterling routines convert the input fields 
into a pence-format field. A pence-format 
field is a sterling amount represented in 
pence. If the output is to be printed, the 
fields are converted with shillings and 
pence printed in two positions each with 
zero suppression in effect in the tens 
position of each field. If the output is 
not printed, the output is converted to 
either BSI or IBM formats. 

Note BSI or IBM input files of one 
program must use the same code combina- 
tion throughout. 



INPUT SPECIFICATIONS 



The position of the sign must be specified 
in columns 71-74. Enter an S in column 74, 
if the sign is in the normal position. If 
the pence field has decimal positions, the 
normal position of the sign is in the 
rightmost decimal position of the pence 
field. If the pence field has no decimal 
positions, the normal position of the sign 
is in the units position of the pounds 
field. 

Note 1 :: One of the digits 0, 1, 2, or 
3 must be entered in column 52, to 
indicate the number of required decimal 
positions. 

Note 2 ; It is not permissible to use 
the same name for both a sterling field 
and a decimal field. 

Note 3 ; The sign of the field must 
contain a numeric underpunch. 

OUTPUT WHICH IS NOT PRINTED: Sterling 
output fields are specified in the same 
manner as sterling input fields. 

PRINTED OUTPUT: Insert the letter S in 
column 74 of the Output-Format Specifi- 
cation sheet. 



Note 1 : Shillings and pence are print- 
ed in two positions each, with zero 
suppression in effect in the tens posi- 
tions of each field. 

Note 2 : If a field is defined as a 
sterling field in the input but not in 
the output specifications, the output 
will be in pence format. 

Note 3: The rules governing the use of 
edit control words are the same as 
those for decimal fields. 

The following features are available: 

1. Zero suppression in the pounds field. 

2. Zero suppression in the shillings 
field, if both pound and shilling 
values are zero. 

3. Zero suppression in the pence field, if 
pound, shilling, and penny values are 
zero. 

4. Suppression of zeros preceding signs, 
and suppression of separation marks 
between pounds and shillings, shillings 
and pence, and pence and decimals. 

Note: If column 38 of the Output- 
Format Specification sheet contains Z, 
the entire pounds field will be zero- 
suppressed. The ten's position of the 
shillings and pence fields will be 
zero-suppressed, and the sign of the 
field will be blanked out. 



CONTROL CARD 



To select the required sterling routines, 
the RPG program needs information regarding 
the input and output formats. This 
information is entered in four columns of 
the RPG processor control card. The 
entries are: 1 for IBM Code, 2 for BSI 
Code. 



CALCULATION SPECIFICATIONS 



While no additional entries are required in 
this form, the user should keep in mind 
that all calculations are done in pence 
format. This must be considered when 
defining the length of result fields or 
when using Factors 1 and 2. 
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Lengths of Pence-Format Fields 



If a pence-format result field is to be 
reconverted into a Format-1 field, the 
highest amount it is permitted to contain 
is 2,399,999,999,999,999. 



BSI FORMAT: The pence option on the output 
field is as listed here: 

1-9 Pence by a 1-9 punch. 

10 Pence by a 12-punch, 

11 Pence by an 11-punch. 



EDITING OF STERLING FIELDS 



POUND STERLING FORMATS 



RPG will support, on the input and output 
fields, two standards for pence and shill- 
ing portions of sterling fields: IBM or 
BSI. Columns 17-2 of the RPG Processor 
Control Card indicate either the IBM or BSI 
formats. The formats for IBM and BSI are 
listed here. 



COLUMN 17 (STERLING-SHILLING FIELD ON 
INPUT) IBM FORMAT: Two positions are 
allowed for the shilling option in the 
input field: 00-19 for to 19 shillings. 

BSI FORMAT: The shilling option in the 
input fields is indicated as listed here: 

1-9 Shillings by a 1-9 punch. 

10 Shillings by a 12-punch. 

11-19 Shillings by a A- I punch. 

COLUMN 18 (STERLING- PENCE FIELD ON INPUT) 
IBM FORMAT: The pence option on the input 
field is as listed here: 

1-9 Pence by a 1-9 punch, 

10 Pence by an 11-punch, 

11 Pence by a 12-punch. 

BSI FORMAT: The pence option on the input 
field is as listed here: 

1-9 Pence by a 1-9 punch, 

10 Pence by a 12-punch, 

11 Pence by an 11-punch. 

COLUMN 19 (STERLING-SHILLINGS FIELD ON 
OUTPUT) IBM FORMAT: Two positions are 
allowed for the shilling option on the 
output field: 

00-19 for 0-19 shillings. 

BSI FORMAT: The shilling option on the 

output field is as listed here: 
1-9 Shillings by a 1-9 punch, 
10 Shillings by a 12-punch, 
11-19 Shillings by A- I punch, 

COLUMN 20 (STERLING-PENCE FIELD ON OUTPU T) 
IBM FORMAT: The pence option on the output 
field is as listed here: 

1-9 Pence by a 1-9 punch, 

10 Pence by an 11-punch, 

11 Pence by a 12-punch. 



RPG provides for the editing of sterling 
fields, with columns 45-70 of the Output- 
Format Specification sheet containing the 
edit words. Each edit word is composed of 
three portions, or fields: the pounds 
field, the shillings field, and the pence 
field. The RPG program enables the user to 
make use of the following: 

1. Floating and fixed pound signs. 

2. Zero suppression of the pounds, 
shillings, and pence fields, or in any 
combination. 

3. CR and minus (-) symbols. 

4. Asterisk protection. 

5. An ampersand causes the insertion of a 
blank in the edit word. 



Rules for Forming Edit Wor ds for a Sterling 
Field 



1. An edit word must be enclosed by a set 
of single-quote symbols. 

2. At least one separator character, or 
delimiter , must be inserted between the 
pounds and shillings fields and the 
shillings and pence fields. Any char- 
acter can be used as a delimiter except 
an asterisk (*) , a zero (0) , a decimal 
point (.), and a comma (,). However, a 
comma is permitted within the pounds 
field, and a decimal point is accepta- 
ble within the pence field. 

3. Asterisk protection if desired must be 
specified in the pounds field. This 
provides asterisk protection in both 
the pounds field and the shillings 
field. 

4 . When specifying the floating pound 
sign, there must be at least one pounds 
field position preceding the shillings 
field and following the pound sign. 

5. For each field in which zero suppres- 
sion is desired, it must be specified 
as such. Zero suppression in a field 



168 



occurs only if a zero appears in that 
field. 

6. No constant information can appear in 
an edit word. 

7. The edit word must always be at least 2 
positions larger than the input field 
on which the editing is to be per- 
formed. 

8. The number of blank spaces supplied in 
the pence field of the edit word must 
be 2 greater than the number of decimal 
positions specified in column 52 of the 
Input or Calculation Specification 
sheets. 

9. There must always be at least 2 posi- 
tions allowed for the shillings field 
in every edit word specification. 

10. When zero suppression is to be per- 
formed on the pence field, the user may 
wish to have' the delimiter blanked out 
if the pence field is zero. To do 
this, the pence sign (d) must occupy 
the position in the edit word immedi- 



ately following the two blank positions 
in the pence field. 



The following examples illustrate valid 
edit words for sterling fields. £ denotes 
the pound sign, s the shilling sign, and d 
the pence sign. The output data to be 
edited is 005070L. 



Edit Word 


Result of Editing on Printout 


No Editing 


005 _ 7 _ L 


Zero Suppression (No Editing) 


5_7_3 


b£0b/0b/0bCR 


£5/_7/_3CR 


bb£0&bb &b b- 


£5 __7__3 - 


£bbb&bbSbbd- 


£_5__7S_3d - 


*bOb/bbSbbd 


* * 5 / * 7S _ 3d 


b£0b: bb :bb & . d 


£5 : _7: _3_ . d 
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APPENDIX D: CONVERSION ROUTINE OPERATION CODES 



The following list shows the relationship 
between conversion routine operation codes 
and how they are specified. 



[ 


1 


1 








Specifications That 




|Code 


1 


Factor 1 | 


Factor 2 


| Result Field 




May Follow This Entry 




j. 


-+- 


+- 




_ + 


-+- 




H 


jEXTCV 


1 
1 
1 


Reference | 

name j 

I 


Name or 
Label of 
the user's 


| Label of the field 

j which will contain the 

| track address of the 




KEYCV 




| KEYCV 


1 

-+- 

1 


1 
None | 


routine. 


| record. 

j Label of the field 


-+- 




H 


None 


Any other RPG 




1 


1 




J which will contain the 




calculations. 






1 


1 




J key of the record to 










1 


1 




| be located. 








L - 


_L_ 






_X 


_.L. 







170 



INDEX 



ADD (Add) 60 

Addition and Subtraction Example 10,11 

ADDROUT (Address Output) Option, 

Using the 116, 117 

Alphabetic Entries 41, 42 

Alphameric Literals 59 

Alphameric Literals in an Output Record , 

Rules for Forming 81 
Alternate Collating Sequence 131 
Alternating Tables 97 
AND Relationship 45 
Appendix A 16 3 
Appendix B 16 4 
Appendix C 167 
Appendix D 170 
Argument (Table) 95 
Arithmetic Operations 6 
Arrangement, RPG Source Deck 130 
Automatic Skipping 73 



Blank After 78 

Block Length 86 

Blocked Records (Variable-Length) 

Blocking Records 10 8, 132 

Branching cind Exit Operations 6 4 



132 



Calculation Specification Sheet 38,56,69 

Capabilities of Program 2 

Chaining 124,125,126 

Chaining Fields 5 4 
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Input Specification Sheet 38,40 
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Name of Label Exit 89 
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Number of Table Entries Per Table 92 

Numeric Entries 41,42 

Numeric Literals 59 

Operation 60 
Option 43 

OR Relationship, Records in an 48 
OR Relationship, Types of 46 
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